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PREFACE 



This publication lists the compile-time messages from the OS PL/I 
Optimizing Compiler and the execution-time messages from the OS PL/I 
Transient Library. Most of these messages are accompanied by additional 
information intended to illustrate the detected condition and to point 
to the appropriate corrective action. Also included are the messages 
that may be produced by the PL/l prompter, and those produced by the 
compiler interface module when running under CMS. 

Messages produced by the CS FL/I Optimizing Compiler are listed in 
Part I. These result from conditions detected during compilation of the 
PL/I program. The messages are listed in both their short and long 
forms (except for compiler control messages which do not have a short 
form). The short form is listed first. However, only one fcrm will be 
printed on the compiler listing depending on whether the SMESSAGE (short 
form) or LMESSAGE (long form) compiler option has been specified. 

Messages produced by the OS PL/I Transient Library are listed in Part 
II. These result from conditions detected during execution of the PL/I 
program. 

Messages produced by the PL/I prompter are listed in Part III. These 
messages result from conditions detected during use of the compiler in 
conversational mode in a TSO environment. 

Messages produced by the interface module when running under CMS are 
listed in Part IV. These messages can result from conditions detected 
during use of the PLIOPT command under CMS. 

v Error and restriction numbers given in compile-time messages 

IEL0230I and IEL0970I are listed in the Appendix. A detailed 

y ' explanation and possible programmer action are also given. 

Note: Messages produced during compiler installation are described in 
| OSTL/I Optimizing Compiler: Instal lation Guide , Order Number SC26-3997. 
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SUMMARY OF AMENDMENTS 

MARCH 1985 

NEW PROGRAMMING SUPPORT 

Release 5.1 adds support for VM/SP Release 3, CICS/VS Release 1.6.1, 
and VM/PC Release 1.1. 

MARCH 1985 

NEW PROGRAMMING SUPPORT 

For Release 5.0, support for MVS Extended Architecture (MVS/XA) is 
provided. 

SERVICE CHANGES 

For Release 5.0, the storage in which the compiler runs has been 
increased to 128K bytes. 

New messages IEL0670I and IEL0935I have been added. Clarifying text has 
been added to the explanations for message IEL0099I and for the 
restriction number 305 during phase KA. 

Note: OS PL/I Optimizing Compiler and Libraries Release 5.0 will not 
support VM/CMS and CICS/VS. Users of these products will continue to be 
supported on OS PL/I Release 4.0. 

DECEMBER 1980 

NEW PROGRAMMING SUPPORT 

For Release 4, several new messages have been added and several messages 
have been modified for the PL/I Extended Graphic Character Set support 
which is described in OS and DOS PL/I Optimizing Compilers: Extended 
Graphic Character Set Support Supplement , Order No. SC26-3971 . 

March 1980 
SERVICE 

Service changes are indicated by revision bars. 

The following messages have been added: 

IEL0333 
IEL0552 
IEL0564 
IEL0775. 

Message IEL0902 was deleted. 
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July 1979 

SERVICE CHANGES 

A technical change was made for release 3, modification 1 , to increase 
the storage size in which the compiler runs. See messages IEL0015 and 
IKJ65012. 

Two messages (IEL0395 and IEL0885) were added, and a number of small 
improvements and corrections were made throughout the manual. 
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PART I: COMPILE-IIME(IEL) MESSAGES 



Compile— time messages include compiler control messages, preprocessor 
messages, and compiler messages. 

• Compiler control messages (numbers 000 2 through 0049) are written on 
the first page of the compiler listing; they are mainly ccncerned 
with errors detected in the specification of compiler options in the 
PROCESS statement. 

• Preprocessor messages (number 0001, numbers 0050 through 0229 and 
numbers 2233 through 2259) are written after any listed output from 
the preprocessor, and, if compilation follows immediately, before 
any listed output from the compilation. 

• Compiler messages (numbers 0230 through 0999) are written as a group 
following the source program and any other listings produced by the 
compiler. 



FORMAT OF COMPILE-TIME MESSAGES 

Each message has a number of the form IElnnnnI, where "TEL" indicates 
that the message is an optimizing compiler message and "nrnn" is the 
number of the message. The final character "I" indicates that the 

system operator action is not required. 

There are five types of messages: informative, warning, error, 
severe error, and unrecoverable error. 

An informative message calls attention to some aspect of the source 
program that might assist the programmer. 

A warning message calls attention to a possible program errcr or to a 
potential failure to achieve full optimization. It does not imply a 
syntactical error in the source program. In addition to alerting the 
programmer, warning messages may assist him in making the program more 
efficient. 

An error message describes an error that the compiler has corrected 
and for which the correction is likely to be successful. 

A severe error message describes an error that the compiler has 
attempted to correct, but for which the correction may not te 
successful. Frequently, the correction consists of ignoring the 
incorrect section of the statement. 

An unrecoverable error message describes an error that cannot be 
corrected by the compiler. Such errors, when discovered, normally force 
termination of the compilation. They are usually caused by a compiler, 
system, or setup error rather than by an error in the source program. 

In the list of messages, the symbols I, W, E, S, and indicate the 
severity level of each message. Except for compiler control messages, 
the compiler prints the messages in groups according to these severity 
levels. 

The compiler FLAG option can be used to suppress the listing of 
messages in the compiler listing. The FLAG option is described in the 
programmer's guide for this compiler. 
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SYMEOLS IN MESSAGES 

Many of the messages reproduced in this publication contain symbols 
indicating where the compiler will insert information when it prints the 
message. The symbols used are: 

D ~ An identifier used in the program. 

N - A decimal integer. 

P - Compiler phase. 

T - Text: up to 20 characters derived from the source program. 

T±- Text: up to 20 characters derived from the source program, 
being the first text insert in the message. 

T 2 - Text: up to 20 characters derived from the source program , 
being the second text insert in the message. 



ALTERNATIVE FORMS OF MESSAGES 

Some of the messages may be produced by the compiler in more than one 
form. Alternative forms of a message include cr omit optional phrases. 
Those messages which can include an optional phrase are listed in this 
publication with the phrases enclosed in square brackets. For example, 
message IEL0399I may be printed as: 

SEMICOLON ASSUMED. or as: SEMICOLON ASSUMED AFTEF T. 

This message is listed in this publication as: 

IEL0399I E SEMICOLON ASSUMED [AFTER T]. 
Other phrases which may be included in a message in this way are: 

PROLOGUE CODE 

STATEMENT IGNORED 

RESULTS OF PROLOGUE UNDEFINED 

T TO D 

The term PROLOGUE refers to the instructions generated by the 
compiler for a PRCCEEUFE or BEGIN statement. These instructions perform 
the housekeeping that is required on entry tc a procedure or begin 
block. Messages with references to the prologue indicate that the 
compiler has detected the condition which resulted in the message while 
generating the prologue code. 

Conditions detected while generating the prologue code may include 
items such as the misuse of the INITIAL attribute or of parameters. 
Consequently, the presence of a reference to the prologue indicates that 
the error is not contained in the PROCEDURE or EEGIN statement itself, 
but in some other statement, such as a DECLARE statement, that follows 
the indicated statement. 



BEFORE CALLING IEE... 

Before calling I EM for programming support with regard to a compile-time 
error , attempt at least one recompilation; if the problem recurs, ensure 
that the following are available: 

1. A listing of the source program. 

2. The job stream (source program and job control stateiterts) in 
machine readable form. 

The requirements for problem determination and APAR submission are 
given in the programmer's guide for this compiler. 
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PREPROCESSOR MESSAGES 



IEL0001I U 



PREPROCESSOR ERROR NUMBER N DURING PHASE P. 



PREPROCESSOR ERROR NUMBER N DURING PHASE P. 

Explanation ; An error has occurred during preprocessing,. 
Processing has been terminated. This error is due to a 
fault in the preprocessor, not the source program. 

Programmer Response ; Rerun the jot, and if the problem 
recurs, call IBM for programming support. Before calling 
IBM, refer to the introduction to this part of the 
putlication for details of information that IEM will need 
in order to diagnose the problem. 



IEL0002I U 



END-OF-FILE ENCOUNTERED ON INPUT FILE DURING COMPILER 
INITIALIZATION. 



Example ; 

// EXEC IEL0AA 

♦PROCESS ; 

/* 

Explanation : The compiler has encountered the end of file 
for the source program before reading a complete PL/I 
statement. 

Programmer Response ; Ensure that the source program 
immediately follows the EXEC IELOAA statement. If a PL/I 
comment is the first statement in the source program, 
ensure that the "/*" is not in the first two positions of 
the record (columns 1 and 2) and thereby are assumed to be 
the job control end-of-file delimiter. If the first 
statement in the source program is a PROCESS statement, 
ensure that the terminating semicolon is not in positions 
73-80 of the first record. 



IEL0003I 



THE FOLLOWING STRING IS NOT RECOGNIZED AS A VALID OPTION 
KEYWORD AND IS IGNCPED - T. 



Example : 



* PROCESS ATRIEUTES; 

L J 

T 



Explanation ; A character string in the PROCESS statement 
cannot be recognized as a valid keyword. In the above 
example, ATTRIBUTES is misspelled. 



IEL0004I RIGHT PARENTHESIS MISSING IN SPECIFICATION OF FOLLOWING 
OPTION, BUT OPTION IS ACCEPTED - T. 



Example 



* PROCESS LINECOUNT (55, SIZE(MAX); 

L J 

T 



*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TC PAGE 3 *** 
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THE SPECIFICATION OF THE FOLLOWING OPTION CONTAINS INVALID 
SYNTAX, EEFAULT ASSUMED FOR T. 

Example ; 

* PROCESS SIZE) 80*)...; 

L J 

T 



IEL0006I THE FOLLOWING OPTION IS DELETED, DEFAULT ASSUMED FOP 1. 

Explanation ; The compiler, while processing the PROCESS 
statement, has encountered an option keyword that was 
deleted from the compiler at system generation. The 
default assumed for the option is the default specified 
for the option at system generation. 

Programmer Response ; If the option is essential, arrange 
to have the option restored to the compiler when the 
system is next generated or use the CONTROL option to 
restore the option temporarily. 

IEL0007I THE FOLLOWING SUB-FIELD OF THE 'CHARSET* OPTION IS INVALID 
AND IS IGNORED - T- 

Example ; 

♦PROCESS .. .CS CEEC60) ; 

IEL0008I THE FOLLOWING SUB-FIELE OF THE 'CHARSET' OPTION IS 
DELETED, DEFAULT ASSUMED FOR T. 

Explanation ; The option required has been deleted from 
use at system- generation. 

Programmer Response ; To obtain temporary use of this 
option, specify the CONTROL option with an appropriate 
password. If the option is required permanently, have the 
system generated again without deleting the option. 

IEL0009I THE FOLLOWING SUB-FIELD OF THE 'TERMINAL' OPTION IS 
INVALID AND IS IGNORED - T. 

Example ; 

* PROCESS. . .TERMINAL (CODE, ESD, STORAGE) ; 

In this example CODE is the invalid sub- field. 

Explanation ; The stated subfield is not recognized, 
because of misspelling, or because of the use of an 
invalid subfield. In each case, the stated subfield is 
ignored. 

IEL0010I THE FOLLOWING SUB-FIELD OF THE 'TERMINAL' OPTION IS 
DELETED, EEFAULT ASSUME! FOR T. 

Explanation ; The option stated in the subfield has been 
deleted at system generation time. The default value of 
the subfield is assumed and may or may not be the option 
requested. 
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IEL0011I SOURCE MARGINS INCORRECTLY SPECIFIED. DEFAULTS ASSUMED 
FOR THE "MARGINS' OPTION. 

Example : 

* PROCESS MARGINS (72, 2,1); 

Explanation : The left hand margin position is to the 
right of the right hand margin position. The default 
values assumed will be 2 and 72. The carriage control 
character position, if specified, is ignored. 

IEL0012I CARRIAGE CONTROL CHARACTER OVERLAPS SEQUENCE FIELD OR 
SOURCE MARGINS. CONTROL CHARACTER IGNORED. 

Example ; 

1. * PROCESS MAR(5,72,73) SEQ(73,80); 

2. * PROCESS MAR (5, 72,10 ) ,• 

Explanation : The carriage control character position, if 
used, must be outside the margins or sequence limits. The 
values of 5 and 72 will be used for the margins, and the 
carriage control character position ignored. 

IEL0013I ARGUMENT NOT WITHIN PERMITTED RANGE. DEFAULT ASSUMED FOR 
FOLLOWING OPTION - T. 

Example : 

1. * PROCESS MARGINS (2, 103,1)... ; 

2. * PROCESS LINECOUNT(O)... ; 

IEL001UI UNMATCHED LEFT PARENTHESIS IN COMPILER OPTIONS 
SPECIFICATION. SUBSEQUENT OPTIONS IGNORED. 

Example : 

♦PROCESS . . . CHARSET (BCD , . . . ; 

IEL0015I SPECIFIED 'SIZE' OPTION IS LESS 1HAN MINIMUM REQUIRED BY 
COMPILER- DEFAULT ASSUMED. 

Example : 

* PROCESS SIZE (4 OK) ; 

Explanation : The compiler requires at least 54K bytes of 
main storage. 

IEL0016I SIZE SPECIFICATION TOO BIG. SIZE (MAX) ASSUMED 
Example : 

♦PROCESS . . -SZ (20000K) 

IEL0017I I •NCTEFMINAL" OPTION ASSUMED IN BATCH MODE. 
Example : 



*** BEFORE CAILING IBM FOR PROGRAMMING SUPPORT, REFER TC PAGE 3 *** 



EXEC PGM=IELOAA f PABM= , TERM(X)* 

Explanation ; The compiler cannot send output to a 
terminal when executing in batch mode, so the TERMINAL 
option should not be specified. 



IEL0018I NAME FIELE TOO LONG. 'NAME' OPTION IGNORED 

Explanation ; The total number of non -blank characters 
appearing in the name field of the specified NAME option 
is too large. Correct the specification and resubmit the 
job. 



IEL0019I 'SIZE* OPTION IGNORED. 
ASSUMED. 



VALUE IN FIRST MEMEER OF BATCH 



Explanation ; It is not possible to alter the amount of 
main storage to be used by the compiler for the 
compilation of the second or subsequent external 
procedures in a batched compilation. 



IEL0020I 'DUMP* OPTION NOT SPECIFIED FOR FIRST MEMBER CF BATCH. 
OPTION IGNORED. 

Explanation ; It is not possible tc specify the use of the 
compiler DUMP option for the compilation of the second or 
subsequent external procedures in a batched compilation if 
the option is not specified for the compilaticn of the 
first external procedure in the batch. 



IEL0021I 



DELIMITER *,.• ACCEPTED AS SEMICOLON. OPTION SCANNING 
TERMINATED. 

Example ; 

* PROCESS NEST ,XREF, ATTRIBUTES, . 

Explanation ; When the compiler reads the options in the 
PROCESS statement, it cannot tell whether the CHARSET(48) 
or CHARSET(60) option is to be used until it has processed 
the options. Therefore it assumes that either the 48- or 
the 60-character sets will be used and will always 
interpret *, . * as a semicolon. 



IEL0022I 'DUMP'* NOT ON 'PLIOPT' COMMAND OPTION IGNORED. 

Example ; 

PLIOPT R 

(and the source for R contains 
♦PROCESS DUMP; ) 

Explanation ; In CMS, the compiler needs to know whether 
to allow for space for the dump phase before it encounters 
a PROCESS statement. 

Programmer Response : Rerun the job, specifying DU as an 
option to the PLIOPT command. 

IEL0023I W NCN-ELANK CHARACTERS FOLLOWING SEMICOLON IGNORED. 

Explanation ; Non-blank characters have been detected 
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following the semicolon in the options list. Any comments 
and the first statement in the external procedure must 
follow a PROCESS statement on the following card (or 
line) . 

Example : 

* PROCESS A,X; P:PROC OPTIONS (MAIN) ; 



IEL0024I U SPILL FILE NEEDED BUT DD STATEMENT INCORRECT. COMPILATION 
TERMINATED. 

Explanation : If the spill file cannot be opened, message 
IEL0026I or message IEL00 31I will Joe produced. If the 
spill file is needed, message IEL0024I is produced. The 
compilation may be completed without needing a spill file. 



IEL0025I 



INVALID SYNTAX IN LAST OPTION OF 'PARM' FIELD. 
OF 'PARM" OPTIONS TERMINATED. 



PROCESSING 



Example : 
PARM 



TA(KQ 



Explanation : In the above example, the right parenthesis 
has been omitted. 



IEL0026I THE COMPILER SPILL FILE IS NOT DIRECT ACCESS. COMPILATION 
WILL TERMINATE IF SPILL FILE NEEDED. 

Example : 

//SYSUT1 DD SYSOUT=A 

Explanation : Compilation will be terminated if the spill 
file is needed and it is not on a direct access storage 
device. Compilation will not be terminated if the spill 
file is not needed. 

IEL0027I U INCORRECT SPECIFICATION OF THE 'CONTROL' OPTICN. 
COMPILATION TERMINATED. 

Explanation : Either the CONTROL option has been specified 
syntactically incorrect or the wrong password has been 
supplied. 

IEL0028I DELIMITER AT START OF STRING *T f IS INVALID AND IS 
IGNORED. 

Example : 

* PROCESS 'FLAG (S) . . . * ; 

the guote (') characters are invalid. 

* PROCESS (FLAG (S) . . . ) ; 

the first left parenthesis and the last right 
parenthesis are invalid. 



IEL0029I U 



I/O ERROR DURING ELDL. COMPILATION TERMINATED. 
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Explanation ; The compiler issues a BLDL macro 
instruction in order to discover where the phases are 
located on direct-access storage. An I/O error has 
occurred while the expanded macro instructions are 
being executed. 

Programmer Response ; Rerun the jot and r if the error 
recurs, call IBM for programming support. Before calling 
IBM, refer to the introduction to this part of the 
publciation for details of information that IBM will 
need in order to diagnose the problem,. 



IEL0030I U 



THE COMPILER INPUT FILE CANNOT EE OPENED. 



Explanation ; The compiler input file S^SCIN or SYSIN 
cannot be opened, possibly because no DD card f cr the file 
has been provided. Compilation is terminated. 



IEL0031I THE COMPILER SPILL FILE CANNOT EE OPENED. 
WILL TERMINATE IF SPILL FILE NEEDED. 



COMPILATION 



Explanation ; The compiler spill file S3SUT1 cannot be 
opened, possibly because no DD card has been provided. 
Compilation will not be terminated if the spill file is 
not needed. 



IEL0032I S 



THE COMPILER PUNCH FILE CANNOT EE OPENED. 



Explanation ; The DECK or MDECK option has been requested 
but SYSPUNCH cannot be opened, possibly because no ED card 
has been provided. Compilation continues with no punched 
output. 



IEL0033I S 



THE COMPILER LOAD FILE CANNOT EE OPENED. 



IEL0034I U 



Explanation ; The OEJECT option has been specified but 
SYSLIN cannot be opened, possibly because no DD card has 
been provided. The NCOBJECT option is assumed and 
compilation continues. 



INSUFFICIENT MAIN STORAGE AVAILAELE. 
TERMINATED. 



COMPILATION 



Explanation ; The compiler has insufficient main storage 
to complete initialization. Either the region cr the 
partition is below the minimum required, or the buffers 
allocated to the compiler input/print/load/ punch files may 
be too big. In either case, retry with larger 
region/partition. 



IEL0035I 



•NUMBER' 
ASSUMED. 



OPTION BUT NO 'SEQUENCE' . DEFAULT SEQUENCE 



Example ; 

♦PROCESS NUM NSEQ; 

Explanation ; The NUMBER option derives a line rnumber from 
the sequence number in the position specified in the 
SEQUENCE option. If this position is not specified, the 
following position is assumed: 
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F-f ormat records : last eight columns 
U- format records: first eight columns 
V-f ormat records : first eight columns 



IEL0036I THE FOLLOWING OPTION IS NOT SUPPORTED AND IS IGNORED 

Explanation : A valid PL/l option keyword has been 
specified, but is not supported ty this compiler. 



IEL0037I S 



INVALID BLOCKSIZE FOR PUNCH FILE 



8 ASSUMED. 



Explanation : The block size specified for the punch file 
(SYSPUNCH) is not a multiple of 80. 

IEL0038I S INVALID BLOCKSIZE FOR LOAD FILE. 80 ASSUMED. 

Explanation : The block size specified for the load file 
(SYSLIN) is not a multiple of 80. 

IEL0039I S INVALID FORMAT SPECIFICATION FCR INPUT FILE. U(100) 
ASSUMED. 

Explanation : The record format specified for the input 
file (SYSCIN or SYSIN) is not supported by the compiler. 

IEL0040I MACRO OPTION IMPLIED BY CHAR (48 OR BCD) AND INPUT RECORDS 
GREATER THAN 80. 

Explanation : The macro preprocessor is required if the 
input records have LRECL >8 and if the source is in BCD 
or CHAR48. 

IEL0041I SEQUENCE FIELD OVERLAPS SOURCE MARGINS. DEFAULT SEQUENCE 
ASSUMED. 

Example : 

♦PROCESS MAR(10,72) SEQ(10,18); 

Explanation : The source margins need not overlap the 
position of the sequence number. If they do, the 
following position for the sequence number is assumed: 

F-forroat records: last eight columns 
U-f ormat records: first eight coluirns 
V-format records: first eight columns 

IEL0042I SOURCE MARGINS OVERLAP SEQUENCE FIELD. * SEQUENCE* AND 
• NUMBER 1 OPTIONS IGNORED. 

Example : 

♦PROCESS MAR(2,80) SEQ(1,8); 

Explanation : The assumed position of the sequence 
number, as described in the explanation for message 
IEL0041I, has failed to prevent overlapping of the 
sequence number by the source margins,. The SEQUENCE 
option is ignored. The NUMBER and GONUMEER options will 
be replaced by the STMT and GOSTMT options if these are 
specified. 
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IEL0043I •COUNT - OPTION USED WITH , NOGCSTMT i OR , NOGONUMEER i 
OPTION. 'COUNT • OPTION IGNORED. 

Example : 

♦PROCESS CT NUM NGN; 

Explanation s Statement frequency counting is performed 
ty recording the numbers of statements involved in all 
branches. With the exception cf points of interrupt, all 
statements that may be involved in branches can be re- 
cognized at compile-time. 

When a statement number table is not available at 
execution-time (because NCGOSTMT or NOGONUMBER are in 
effect) it is impossible to determine the statement number 
at a point of interrupt. If return is not made to the 
point of interrupt, the count values will be incorrect. 

If NCGOSTMT or NOGONUMBER are net specified explicitly, 
GOSTMT or GONUMBER (depending en whether STMT cr NUMBER 
have been specified) will be implied by COUNT. 

IEL0044I I *DUMP« OPTION SPECIFIED- COMPILATION SPEED WILL BE 
DEGRADED SINCE AVAILABLE STORAGE IS REDUCED. 

Example ; 

* PROCESS DUMP; 

Explanation ; The DUMP option requires 18K of main 
storage. Compilation speed is degraded because this 18K 
cannot be used as working storage, thereby causing more 
spilling than usual. It is recommended, therefore, that 
the programmer uses the DUMP option only if necessary. 

IEL0045I U I/C ERROR «T' . 

Explanation ; The insert 'T' is the information pertinent 
to the I/O error that is provided ty the SYNADAF macro 
instruction (see the appropriate manual for this compiler 
for details) . Compilation is terminated. If the I/O 
error is on the print file, "PRINT FILE ERROR" will appear 
on the operator console. 

IEL0046I INVALID OPTION SUEFIELD SPECIFIED. SUBFIELD IGNORED IN 
OPTION T. 

Example ; 

* PROCESS XREF (LONG) ; 

Explanation ; In the example, LONG is not a valid suboption 
for the XREF option. 

IEL0047I U COMPILER INITIALIZATION ERROR. COMPILATION TERMINATED. 

Explanation ; An error has occurred in the coirpiler 
initialization phase. 

IEL0050I E IDENTIFIER BEGINNING T EXCEEDS N CHARACTERS. 

PREPROCESSOR RESTRICTION. IDENTIFIER BEGINNING 
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IEL0051I S 



T IS TOO LONG. TRUNCATED TO FIRST N CHARACTERS. 

Example s 

^INCLUDE DECLARATIONS? 
^INCLUDE X( DECLARATIONS); 

Explanation ; The maximum possible length for an ident- 
tifier in a %INCLUDE statement is 8 characters. There- 
fore in the above example, the identifier DECLARATIONS 
is truncated to DECLARAT. 

NESTING LEVEL FOR '^INCLUDE* STATEMENT EXCEEDS N. 

MORE THAN N LEVELS OF NESTING FOR »% INCLUDE • STATEMENT. 
STATEMENT IGNORED. RERUN WITH •MACRO* OPTION. 

Example ; 

%INCLUDE A; 
In A: %INCLUDE E; 
In B: 5EINCLUDE C; (and so on, to a depth greater than 8) 

Explanation ; * INCLUDE statements may not be nested with 
more than eight levels when using the INCLUDE compiler 
option. 

Programmer Response ; The preprocessor, which has no 
limits on the depth of nesting, should be used by 
specifying the MACRO compiler option instead of the 
INCLUDE compiler option. 



IEL0052I S ^INCLUDE' MEMBER T NOT FOUND. 

*% INCLUDE' MEMBER T NOT FOUND. MEMBER IGNORED. 

Example ; 

^INCLUDE X,Y; 

Explanation ; If X cannot be found in the SYSLIB data set, 
the member is ignored and processing continues with Y. 



PROCESSING OF MEMBER 



IEL0053I S I/O ERROR READING MEMBER T. 

I/C ERROR READING MEMBER T. 
TERMINATED. 

Example ; 

^INCLUDE X,Y; 

Explanation ; If an I/O error is encountered while 
including X, processing of X is terminated and an attempt 
is made to include Y. 

Programmer Response ; Rerun the job and, if the error 
recurs, call IBM for programming support. Befcre 
calling IBM, refer to the introduction to this part of 
the publication for details of information that IBM will 
need in order to diagnose the problem. 



IEL0051I S 



INVALID TEXT BEGINNING T IGNORED. 
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INVALID TEXT BEGINNING T IN ^INCLUDE' STATEMENT. 
STATEMENT IGNORED. 

Example : 

^INCLUDE A*E; 



Explanation : 
is incorrect, 
expected. 



The syntax of the % INCLUDE statement 
In the exairple shown, an identifier is 



IEL0055I W 



'^INCLUDE* FILE D. T ASSUMED. 



SEQUENCE POSITIONS NOT SPECIFIED FOB •ftlNCLUDE' FILE D. 
T ASSUMED. 

Explanation : This message is printed when the record 
format of the included data set differs from that of 
SYSIN, no sequence values for this record format were 
specified at system generation, and the NUMBER cption 
applies. 

Programmer Response : If the fix-up is unsatisfactory, 
change the compiler default options FSEQUEN or VSEQUEN. 



IEL0056I W INVALID CARRIAGE CONTROL POSITION IGNORED FOR 
^INCLUDE' MEMBER D. 

CARRIAGE CONTROL POSITION FOR '^INCLUDE* MEMBER D IS 
WITHIN SOURCE MARGINS OR SEQUENCE FIELD. IT IS IGNORED. 

Example : 

SEQUENCE(14,20) MAR( 26, 50 , 15) ; 

Explanation : The carriage control position specified in 
the MARGINS option must lie outside the margins and out- 
side any sequence field. In the example shown, the 
MARGINS statement field will become (26,50,0). 

IEL0057I S SEQUENCE AND MARGINS OVERLAP FCR D. T ASSUMED. 

SEQUENCE AND MARGINS FIELDS OVERLAP FOR ^INCLUDE* FILE 
D. T ASSUMED. 

Explanation : The MARGINS option is modified if it over- 
laps the sequence field. 

Programmer Response : If the fix- up is unsatisfactory, 
either or both of the following compiler options will 
need to be modified: MARGINS, SEQUENCE. 

IEL0058I S NC ' DD* STATEMENT FOR MEMBER T- 

MISSING 'ED' STATEMENT FOR '% INCLUDE' MEMBER T. 
MEMBER IGNORED. 

Example : 

%INCLUDE P (MEMBER), DECLS; 

Explanation : A DD statement for library P in the example 
shown must be present. If it is not present, this message 
is issued and the preprocessor proceeds to the next 
specification, which is DECLS. 
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Programmer Response : Provide a DE statement with a 
ddname P with the JCL statements used to perform the 
compilation. 



IEL0059I S I/O ERROR SEARCHING FOR MEMBER T. 

I/O ERROR SEARCHING FOR MEMBER T. MEMBER IGNORED. 
Example : 

^INCLUDE X; 

Explanation : In the example shown, an I/O error has 
occurred during an attempt to find member X,. 

Programmer Response : If the error persists, call IBM 
for programming support- 

IEL0060I S RECORD LENGTH GREATER THAN N FOR MEMBER T. 

LOGICAL RECORD LENGTH GREATER THAN N FOR MEMBER T. 
PROCESSING OF MEMBER TERMIANTED. 

Explanation : The maximum permitted logical record length 
is 100 for F-format data sets and 104 for V-fcrmat 
data sets- For V-format data sets, no message is 
issued until a record longer than 101 bytes is 
actually encountered. 

Programmer Response : Recreate the data set using 
permitted logical record length. 

IEL0061I E DEFAULT RECORD LENGTH OR ELOCK SIZE ASSUMED FOR 
MEMEER T. 

LOGICAL RECORD LENGTH OR BLOCK SIZE NOT SPECIFIED FOR 
'^INCLUDE' MEMBER T. DEFAULT ASSUMED,. 

Explanation : If either or both the logical length and the 
block size are not specified, the following assumptions 
are made. For F-format data sets,, if neither 
block size nor record length are specified, a block size 
of 80 and record length of 400 are assumed; if only one 
of the two is specified, the value specified is assumed 
for both. For V- format and U-format data sets, the 
maximum practicable block size (42 60 bytes) is assumed. 

Programmer Response : Specify LRECL and BLKSIZE in the DCB 
parameter in the DD statement for the data set. 

IEL0065I E 'RETURNS* ATTRIBUTE ON D IGNORED. 

•RETURNS" ATTRIBUTE ON BUILTIN FUNCTION D IGNORED. 

Example : 

^DECLARE SUBSTR BUILTIN RETURNS (CHAR) ; 

Explanation : Data type returned by a built-in function is 
determined by the language rules. 

IEL0066I E 'ENTRY' ATTRIBUTE ON E IGNORED. 

'ENTRY" ATTRIBUTE ON BUILTIN FUNCTION D IGNORED. 
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IEL0067I S 



IEL0068I E 



IEL0069I E 



Example ; 

^DECLARE INDEX BUILTIN ENTRY; 

Explanation : The EUILTIN attribute implies the ENTRY 
attribute. 

D INVALID BUILTIN FUNCTION NAME. 

D IS NOT A VALID BUILTIN FUNCTION NAME. REFERENCE WILL 
END PROCESSING. 

Example : 

^DECLARE HARRIET BUIITIN; 

Explanation : Only SUBSTR, INDEX, and LENGTH are permitted 
built-in function names for the preprocessor. 

DESCRIPTOR LIST AFTER 'ENTRY' IGNORED. 

PARAMETER DESCRIPTOR LIST ON 'ENTRY' ATTRIBUTE IGNORED. 

Example : 

%EECLARE P ENTRY (CHAR, FIXED) ; 

should be 

^DECLARE P ENTRY; 

Explanation : The arguments are always converted to the 
types specified by the PROCEDURE statement. 

'RETURNS" ATTRIBUTE IGNORED. 

'RETURNS' ATTRIBUTE IN 'DECLARE* STATEMENT IGNORED. 

Example : 

^DECLARE P ENTRY RETURNS (FIXED ; 

should be 

^DECLARE P ENTRY; 

Explanation : The attribute of the value returned by a 
compile-time procedure is determined by the procedure 
statement. 



IEL0070I S END OF SOURCE TEXT IN STRING,. 

END OF SOURCE TEXT IN STRING. QUOIE ASSUMED BEFORE END OF 
SOURCE TEXT- 

Explanation ; End of source text found while scanning for a 
closing quotation mark for a character or graphic string. 
Check that all quotation marks are paired. 



IEL0071I S NO DELIMITER ON REPLACEMENT VALUE STRING. 

REPLACEMENT VALUE CONTAINS NO END OF SIRING DELIMITER. 
DELIMITER ASSUMED AT END OF STRING. 
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Explanation ; An end-of-string delimiter has not teen 
found in a replacement value. 



IEL0072I E INVALID CHARACTER IN BIT STRING. 

INVALID CHARACTER IN BIT STRING. PROCESSED AS CHARACTER 
STRING . 

IEL0073I S END OF SOURCE TEXT IN COMMENT. 

END OF SOURCE TEXT IN COMMENT. COMMENT DELIMITER ASSUMED 
AT END OF SOURCE TEXT. 

Explanation : The end of the source text has been 
encountered while scanning for an end-of -comment 
delimiter. 

IEL0074I E NO COMMENT DELIMITER IN REPLACEMENT VALUE. 

REPLACEMENT VALUE CONTAINS NO END OF COMMENT DELIMITER. 
COMMENT EELI MITER ASSUMED AT END OF REPLACEMENT VALUE. 

Explanation : An end-of-comment delimiter cannot be found 
in a replacement value. 

IEL0075I E INVALID CHARACTER REPLACED BY BLANK. 

INVALID CHARACTER REPLACED BY BLANK. 

Explanation : An invalid character has been found in the 
source text. 

IEL0076I U BLOCK SIZE FOR '^INCLUDE' D EXCEEDS 4 00. 

ELCCKSIZE OF ^INCLUDE* D EXCEEDS THE DEFAULT MAXIMUM OF 
400 ALLOWED WITH THIS SIZE OPTION. PROCESSING TERMINATED. 

Explanation : The INCLUDE data set block size can never 
exceed the spill fill record size, and with small compiler 
SIZE option values the maximum is 400. The point at which 
a block size greater than 4 00 may be used depends on the 
storage allocation performed at compiler initialization 
time, but usually a SIZE value of 60K is sufficient. 

Programmer Response : Use a large SIZE option value, or 
recreate the INCLUDE data set with a smaller block size. 

IEL0077I E CONFLICTING USE OF D. 

USE OF E IN PROCEDURE ENDING AT THIS LINE CONFLICTS WITH 
PREVIOUS USE- REFERENCE WILL END PROCESSING. 

Example ; 

%LCL E ENTRY; 

%V: PROCEDURE RETURNS (CHAR) ; 
1=3; 

SEND; 

Explanation : An identifier has been used but not declared 
in a compile-time procedure. The use conflicts with a use 
or declaration outside the procedure. 



16 



*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TC PAGE 3 *** 



IEL0078I E *V IN LABEL LIST IGNORED. 
'V IN LAEEL LIST IGNORED- 
Explanation : 
In the statement 

% LABELS: % IF CI = C2 etc. 
the second "%" is ignored. 

IEL0079I E NO LABEL BEFORE COLON. 

NO LABEL BEFORE COLON. COLON IGNORED. 
Example : 

%: A = B; 
Programmer Response : Insert label or remove colon. 

IEL0080I S INVALID TEXT IGNORED FROM T TO SEMICOLON. 

INVALID TEXT IGNORED FROM T TO SEMICOLON. 
Example : 

% GOTOLABEL 2; should he % GOTO LABEL2; 



IEL0081I E 



CONFLICTING USE OF D, 

CONFLICTING USE OF IDENTIFIER E AS LABEL. REFERENCE WILL 
END PROCESSING. 

Example : 

*DCL (A„B f C) CHAR; 
%A: B = C; 

Explanation : No system action is taken unless a statement 
which references the identifier is detected. 



IEL0082I E 



MULTIPLE USE OF D AS LABEL. 

D USED AS LABEL MORE THAN ONCE. REFERENCE VvILL END 
PROCESSING. 

Example : 

%L:A = 1; 
%L:A = 2; 

Explanation : No system action is taken unless a statement 
which references the multiply-defined label is detected. 



IEL0083I W LABELS ON DECLARE STATEMENT. 

LAEELS ON 'DECLARE* STATEMENT IGNORED. 
Example : 

% LABEL1: DECLARE etc. 
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IEL0084I S CONFLICTING USE CF D- 

USE OF D CONFLICTS WITH PREVIOUS USE AS LABEL, 
Example : 

%L : ; 
%L = 2; 



IEL0085I E 



NO ATTRIBUTE DECLARED FOR D. 

NO ATTRIBUTE DECLARED FOR PARAMETER D IN PROCEDURE ENDING 
AT THIS LINE. CHARACTER ASSUMED. 

Example : 

%PROCl: PROC (F1,P2,P3) RETURNS (CHAR) ; 
ECL (Pl f P2) FIXED; 
SEND PROC1; 



IEL0086I E LAEEL D IS UNDEFINED. 

LABEL D IS UNDEFINED. REFERENCE WILL END PROCESSING. 

Explanation : No system action is taken unless a *GOTO 
statement that references the undefined label is executed, 
Check all references to the label, or define it. 



IEL0087I E END OF SOURCE TEXT IN PROGRAM. 

END OF SOURCE TEXT BEFORE LOGICAL END OF PROGRAM. 
STATEMENT ASSUMED. 



'BEND* 



Explanation : Check that each %PROCEDURE and %DC statement 
is matched with a %ENE statement. 



IEL0088I E D IS UNDEFINED IN PROCEDURE. 

LABEL D IS UNDEFINED IN PROCEDURE ENDING AT THIS LINE. 
REFERENCE WILL END PROCESSING. 

Explanation : A label must be defined within the procedure 
as no transfers out of procedures are allowed. 

IEL0089I E SEMICOLON AFTER • IF' EXPRESSION. 

SEMICOLON TERMINATES 'IF' EXPRESSION. SEMICOLON IGNORED. 

Example s 

*IF PI = P2; 
STHEN CI = C2; 



IEL0090I S 



•IF* STATEMENT IGNORED. 

•IF' EXPRESSION NOT FOLLOWED BY •%• OR 'THEN'. 
STATEMENT IGNORED. 

Example : 

%IF CI = C2 GOTO etc. 



IF' 



18 



*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 3 *** 



IEL0091I E 



NO '*• BEFORE "THEN*. 

MISSING '%' ASSUMED BEFORE , THEN t IN •J&IF* STATEMENT. 

Example ; 

% IF CI = C2 THEN etc. 



IEL0092I E NC 'THEN' AFTER '%' 

MISSING "THEN* ASSUMED AFTER «V IN •%IF t STATEMENT. 

Example : 

*IF CI = C2 
%C2 = C3; etc. 

IEL0093I E INVALID STATEMENT AFTER '%THEN" OR ■JELSE'. 

STATEMENT AFTER • STHEN* OR *%EISE' NOT A PREPROCESSOR 
STATEMENT. '%' ASSUMED BEFORE IT. 

Example : 

* IF CI = C2 % THEN CI = C3; 

is incorrect. 

Explanation : If the statement in question is not a 
preprocessor statement, it should be inside a preprocessor 
do-group. 

IEL0094I E MISSING 'THEN* ASSUMED. 

MISSING 'THEN* ASSUMED IN * IF* STATEMENT- 
Example : 

*P: PROC RETURNS (FIXED); 
IF I = 1 GOTO L; 



IEL0095I E INVALID '%• IGNORED. 

INVALID 'V IN PREPROCESSOR PROCEDURE IGNORED. 

Example : 

% PROC1: PROCEDURE RETURNS (CHARACTER) ; 
% ECL etc. 

Explanation : Statements within preprocessor prccedures 
may not be preceded by %. 



IEL0096I W LAEELS ON "ELSE* IGNORED. 
LABELS ON 'ELSE' IGNORED. 
Example : 

% LABEL3: ELSE % etc. 
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IEL0097I E NDLL STATEMENT ASSUMED. 

NO STATEMENT AFTER 'THEN 1 OR 'ELSE*. NDLL STATEMENT 
ASSUMED. 

Example : 

% IF % THEN % ELSE%; 

IEL0098I E NO 'IF" BEFORE 'ELSE' 

NO 'IF' BEFORE 'ELSE*. 'ELSE' IGNORED. 

Explanation : An ELSE clause has been found which is not 
part of an IF statement. 

IEL0099I U BLOCKSIZE FOR ^INCLUDE' D EXCEEDS TEXT PAGE SIZE. 

BLOCKSIZE OF ■% INCLUDE* D EXCEEDS TBE TEXT PAGE SIZE 
ALLOWED WITH THIS SIZE OPTION. PROCESSING TERMINATED. 

Explanation : The text page size depends on the size 
option specified for the compilation. The block size of 
an INCLUDE data set may not exceed this. 

Programmer Response : Specify a large enough SIZE value to 
ensure that text pages are at least as tig as INCLUDE data 
set blocks OR recreate INCLUDE data set with smaller 
blocking factor, using a utility (e.g. IEBGENER) . 

IEL0100I E DUMMY LABEL ASSUMED ON STATEMENT. 

NO LABEL ON ^PROCEDURE* STATEMENT. DUMMY LAEEL ASSUMED. 

Example : 

*PROC RETURNS (CHAR) ; 

Explanation : A %PROCEEURE statement should have a label. 

Programmer Response : Insert a label on the PROCEDURE 
statement. 

IEL0101I U MORE THAN N PROCEDURES. 

PREPROCESSOR RESTRICTION. MORE THAN N PREPROCESSOR 
PROCEDURES DEFINED IN A COMPILATION. PROCESSING 
TERMINATED- 

Froqrammer Response : Reduce the number of preprocessor 
procedures to within the given limit. 



IEL0102I E D PREVIOUSLY DEFINED. 

ENTRY NAME D PREVIOUSLY DEFINED. 
PROCESSING. 

Example : 

%E: PROC RETURNS (CHAR) 



REFERENCE WILL END 
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%E: PROC RETURNS (CHAR) ; 
Explanation : No action is taken unless the 
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Order No. SC33-0027-3, Revised October lay TNL EN33-6202 

multiply- defined label is referenced by a statement that 
is executed. 

Programmer Response : Change the label on one cf the 
^PROCEDURE statements, or remove one of the procedures. 



IEL0103I E 



INVALID USE OF D. 

INVALID USE OF FUNCTION D ON LEFT OF EQUALS SYMEOL. 
REFERENCE WILL END PROCESSING. 

Example : 

*DCL E ENTRY RETURNS (CHAR) ; 
%E = 'ABC* ; 

Explanation : Entry names and built-in function names may 
not appear on the left hand side of an assignment 
statement. Execution of such a statement will terminate 
processing. 



IEL0104I E 



CONFLICTING USE CF D. 

CONFLICTING USE OF IDENTIFIER D AS ENTRY NAME. REFERENCE 
WILL END PROCESSING. 



Example : 

%DCL C CHAR; 
%C = C(I); 

Explanation : An identifier followed by a parenthesis in a 
preprocessor expression is considered tc be an entry name. 
Execution of such a statement will terminate processing. 



IEL0105I E 



MULTIPLE USE OF D IN PARAMETER LIST. 

PARAMETER D APPEARS MORE THAN CNCE IN PARAMETER LIST. AN 
ARGUMENT CORRESPONDING TO SECOND USE OF PARAMETER WILL NOT 
BE USED WITHIN PROCEDURE. 

Example : 
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%E: PROC(P f P) RETURNS (CHAR); 

Explanation s The number of parameters to the procedure is 
not changed* but, within the procedure, references to the 
multiply- defined parameter will apply to its first use. 

IEL0106I S MORE THAN N PARAMETERS USED. 

PREPROCESSOR RESTRICTION. MORE THAN N PARAMETERS USED. 
REFERENCE WILL END PROCESSING. 

Explanation ; Processing is ended if a procedure having 
more than fifteen parameters is referenced by a statement 
that is executed. 

IEL0107I E MISSING PARAMETER. 

MISSING PARAMETER. A CORRESPONDING ARGUMENT WILL NOT BE 
USED WITHIN PROCEDURE. 

Example : 

SPROCL: PROCEDURE (P1,P2,,F4) RETURNS (CHAR) ; 

Explanation s The assumption is made that the omission of 
the parameter is intentional. 

IEL0108I E PARAMETER T INVALID. 

PARAMETER T INVALID. AN ARGUMENT CORRESPONDING TO THE 
PARAMETER WILL NOT BE USED WITHIN THE PROCEDURE. 

Example ; 

SP: PROC(8) RETURNS (CHAR) ; 

Explanation ; The expected parameter is not an identifier. 
The parameter is assumed to exist but is not identified 
within the procedure. 

IEL0109I S T TO NEXT COMMA OR SEMICOLON IGNORED. 

INVALID ELANK OR MISSING COMMA IN PARAMETER LIST. TEXT 
IGNORED FROM T TO NEXT COMMA OR SEMICOLON. 

Example ; 

%PROCl: PROC (F1,P2,P3 P4) RETURNS (CHAR) ; 

IEL0110I S RIGHT PARENTHESIS ASSUMED FCR SEMICOLON. 

SEMICOLON FOUND IN PARAMETER LIST- RIGHT PARENTHESIS 
ASSUMED . 

Examples 

SE; PROC (P ; 

Explanation ; A semicolon has been encountered during the 
scan of an apparent parameter list. A right parenthesis 
has been inserted before the semicolon. 
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IEL0111I E INVALID RETURNED VALUE T REPLACED BY 'CHARACTER' . 

RETURNED VALUE NOT 'FIXED' OR 'CHARACTER'. T REPLACED BY 
'CHARACTER' . 

Example ; 

%E: PROC RETURNS tBIT); 

Explanation ; Returned values iray only te FIXED or 
CHARACTER. CHARACTER is the assumed attribute. 

IEL0112I E ' RETURNS ( CHAR) ' ASSUMED FCR RETURNED VALUE. 

NO ATTRIBUTE FOR RETURNED VALUE. ' RETURNS (CHAR) " ASSUMED. 
Example ; 

*P: PROC? 



IEL0113I W INVALID CONTINUATION OF GRAPHIC STRING. 

INVALID CONTINUATION OF GRAPHIC STRING. LAST COLUMN ON 
LINE IGNORED. 

Explanation : This message is issued by the preprocessor. 
Since each graphic requires 2 bytes, you must be sure that 
the graphic string fits exactly within the compiler margins? 
that is, there are no extraneous characters such as EBCDIC 
blanks embedded in the graphic string. 



IEL0114I E 



IEL0115I E 



T IS IGNORED. 

T IS IGNORED IN ' ^DEACTIVATE' STATEMENT. 

Example ; 

%DEACTIVATE A NORESCAN? 

Explanation ; RESCAN and NORESCAN options are only valid 
in a ^ACTIVATE statement. 

CHARACTER ASSUMED FOR UNDECLARED D. 

REFERENCE TO UNDECLARED IDENTIFIER D. CHARACTER ATTRIBUTE 
ASSUMED. 

Example ; 

%DCL (A,B) CHAR C FIXED? (%C=N?)? 
%E=A| |B? 

Explanation ; D is given the attribute CHAR by default. 



IEL0116I S '^PROCEDURE" STATEMENT INVALID. 

*%PROCEDURE' STATEMENT IN PREPROCESSOR PROCEDURE. TEXT 
IGNORED TO NEXT PREPROCESSOR '%END* STATEMENT. 

Example ; 
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IEL0117I S 



IEL0118I S 



IEL0119I E 



IEL0120I E 



SPROC; PRCC; 
PR0C6: PRCC; 
END PROC6; 
56ENE; 

Explanation ; Procedures cannot be nested in preprocessor 
procedures- Other messages may te generated by this 
error. 



^PROCEDURE ' STATEMENT REPLACED EY NULL. 

••JFROCEEURE* STATEMENT IN *%THEN* OR *%ELSE* CLAUSE 
REPLACEE BY NULL STATEMENT. TEX1 IGNORED TO NEXT 
PREPROCESSOR • %END* STATEMENT. 

Example ; 

%IF CI = C2 %THEN %PROC2: PROCEDURE; 

END PROC2; 

%ELSI %PROC3: PROCEDURE; etc. 

Explanation ; %PRCCEDURE statements are not allowed in 
preprocessor 'THEN* or •ELSE* clauses. Other messages may 
te generated by this error. 



•^RETURN" STATEMENT INVALID. IGNORED. 

f %RETURN« STATEMENT INVALID OUTSIDE PREPROCESSOR 
PRCCEEURE. STATEMENT IGNORED. 

Example ; 

*RETURN(0); 

MISSING PARENTHESIS ASSUMED. 

MISSING PARENTHESIS ASSUMED FOR 'RETURN* EXPRESSION. 

Example ; 

*P; PROC FIXED; 
RETURN 6); 
*END; 

INVALIE TEXT- T TO SEMICOLON IGNORED - 

INVALID TEXT AFTER EXPRESSION IN 'RETURN* STATEMENT. 
IGNORED FROM T TO SEMICOLON. 



TEXT 



Example ; 

RETURN CI* ) IF A 



B; 



Explanation ; The RETURN statement has been processed but 
scan finds text when it expects a semicolon. 



IEL0121I S 'GOTO* STATEMENT IGNORED. 

NO OPERANE IN •GOTO*. STATEMENT IGNORED. 
Example ; 

*GOTO; 
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IEL0122I E CONFLICTING USE OF E. 



USE OF IDENTIFIER D IN 'SGOTO* STATEMENT CONFLICTS WITH 
PREVIOUS USE. REFERENCE WILL END PROCESSING. 

Example ; 

%P;PROC RETURNS (FIXED) ; 



%GOTO P; 

IEL0123I S SEMICOLON MISSING. T TO NEXT SEMICOLON IGNORED. 

SEMICOLON MISSING AFTER "SGOTO' STATEMENT. TEXT IGNORED 
FROM T TO NEXT SEMICOLON. 

Example ; 

%GOTO LABELU CI = C2; 

IEL012UI U '^GCTO' IS AN INVALID BRANCH. 

OPERAND OF •JGOTO" IS LABEL IN ITERATIVE 'DO' OR INCLUDED 
TEXT. PROCESSING TERMINATED,. 

Example ; 

% GOTO LI; 



? DO I 1 TO N; 

XL1: 

*END; 



IEL0125I S STATEMENT INVALID IN PROCEDURE. 

INVALID •^ACTIVATE' OR '^DEACTIVATE' IN PREPROCESSOR 
PROCEDURE. STATEMENT IGNORED. 



Explanation ; ACTIVATE and DEACTIVATE statements may not 
be used in preprocessor procedures. 



IEL0126I E STATEMENT HAS NO OPERAND. IGNORED. 

"^ACTIVATE" OR ^DEACTIVATE' HAS NO OPERAND. STATEMENT 
IGNORED. 



IEL0127I E 



Example ; 

^ACTIVATE; 

REDUNDANT COMMA IGNORED. 

MISSING OPERAND OR REDUNDANT COMMA IN '^ACTIVATE' OR 
•^DEACTIVATE'. COMMA IGNORED. 
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IEL0128I S 



Example s 

^DEACTIVATE C5 , f C6; 

INVALID FIELD T IGNORED. 

INVALID FIELD T IN ^ACTIVATE* OR f ^DEACTIVATE • STATEMENT 
IS IGNORED. 



Example ; 

^ACTIVATE 7TIMES; 



IEL0129I S IDENTIFIER D IGNORED. 

IDENTIFIER D NOT PROCEDURE OR VARIABLE. IT HAS BEEN 
IGNORED IN ^ACTIVATE* OR ' ^DEACTIVATE ' STATEMENT- 



IEL0130I S 



Example ; 

% DEACTIVATE LABEL H; 
(where LABEL4 is a statement lafcel) . 

T TO COMMA CR SEMICOLON IGNORED. 

INVALID BLANK OR MISSING COMMA IN ' ^ACTIVATE ' OR 
^DEACTIVATE' STATEMENT. TEXT IGNORED EROM T TC COMMA OR 
SEMICOLON . 



Example ; 



^DEACTIVATE C5 , C6 C7; 
^DEACTIVATE IDENTIFIER; 



IEL0131I S NON- ITERATIVE 'DO* ASSUMED. 

INVALID SYNTAX IN , D0 1 STATEMENT. NON-ITERATIVE 'DO' 
ASSUMED. 



Example ; 

SDO A; = 1 TO 10; 

IEL0132I W NO MAXIMUM VALUE FOR 'DO* ITERATION. 

NO MAXIMUM VALUE SPECIFIED FOR 'DO' ITERATION 

Example ; 

%LO I = 1 BY 1; etc. 



Explanation ; This warning is given because the program 
may loop. 



Programmer Response ; If the program loops, provide an 
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iteration limit or an alternative exit. 

IEL0133I E SEMICOLON ASSUMED BEFOKE *V. 

MISSING SEMICOLON ASSUMED BEFORE * V . 



Explanation : A percent found in the text has been assumed 
to signify the start of a new statement. 



IEL0134I E SECOND 'TO' REPLACED BY 'BY'. 

SECOND "TO" FOUND IN ITERATION SPECIFICATION OF 'DO* 
STATEMENT- REPLACEE BY 'BY'. 



Example ; 

%DO I = 1 TO 10 TO 1; 

*DO I = 1 TO 10 TO 1 BY 1; 

CBY will have been ignored when this message occurs) 



IEL0135I E SECOND 'BY 1 REPLACEE BY 'TO*. 

SECOND "BY" FOUND IN ITERATION SPECIFICATION OF , DO* 
STATEMENT. REPLACED BY 'TO*. 



Example : 

%EO I = 1 BY 1 BY 10/; 

IEL0136I E SEMICOLON MISSING. T l6 NEXT SEMICOLON IGNORED. 

MISSING SEMICOLON IN , DO« STATEMENT. TEXT FROM T TO NEXT 
SEMICOLON IGNORED. 

Example : 

%DO I = 1 TO 10 BY 1 BY 7; 

IEL0137I E NULL STATEMENT ASSUMED BEFORE 'END*. 

•END* STATEMENT MAY NOT FOLLOW •THEN 1 OK •ELSE'. NULL 
STATEMENT ASSUMED EEFORE 'END'. 

Example : 

*BO; %IF CI = C2 %THEN %END; 

IEL0138I E SEMICOLON MISSING. T TO NEXT SEMICOLON IGNORED. 

MISSING SEMICOLON IN "END 1 STATEMENT. TEXT FROM T TO NEXT 
SEMICOLON IGNORED. 



Explanation s A *%END* statement must be followed by a 
semicolon or by a label and a semicolon. 
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IEL0139I E REDUNDANT 'SEND* STATEMENT IGNORED . 
REDUNDANT •%END t STATEMENT IGNORED. 



Explanation ; A %END statement is not preceded by a %EO or 
^PROCEDURE statement that has not already been terminated. 

IEL014 0I E REFERENCE TO UNKNOWN LABEL IGNORED. 

LABEL REFERENCED IN f %END' STATEMENT NOT POUND. REFERENCE 
IGNORED. 



Explanation ; The operand of the %END statement cannot be 
matched with the label on a %PRCCEEURE or %DO statement 
which has not already got a matching %END statement. 



IEL01*HI E 



'%" ASSUMED BEFORE 'END 1 STATEMENT. 

«%■ ASSUMED BEFORE 'END* STATEMENT OF PROCEDURE. 



Explanation ; The END statement is the logical end of the 
procedure and should be preceded by •%". 

IEL0142I E T NOT A LABEL. IGNORED. 

IDENTIFIER T ON •XEND' STATEMENT NOT A LABEL. IDENTIFIER 
IGNORED. 



Example ; 

xx = y + a? 

%END A; 



IEL0143I E NO 'RETURN* STATEMENT IN PROCEDURE. 

NO •RETURN' STATEMENT IN PROCEDURE T. NULL VALUE WILL BE 
RETURNED. 



Explanation ; The PL/I language requires the use of a 
RETURN statement in a preprocessor procedure; a null value 
is returned if a procedure without a RETURN statement is 
invoked. 



IEL014UI S •JINCLUEE' INVALID IN PROCEDURE. 

^INCLUDE" STATEMENT INVALID IN PREPROCESSOR PROCEDURE. 
STATEMENT IGNORED. 



Example ; 

%PROCl: PROCEDURE (PI, P2) RETURNS(CHAR) ; 

INCLUDE RUBBISH; 

%ENE; 
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IEL0145I E DDNAME TRUNCATED TO N CHARACTERS. 

PREPROCESSOR RESTRICTION. DDNAME TRUNCATED TC FIRST N 
CHARACTERS. 



Explanation : The first of a pair of aata-set identifiers 
is a ddname limited to a maximum of 8 characters. 



IEL0146I S INVALID FIELD. TEXT IGNORED FROM T. 

INVALID FIELD IN • ^INCLUDE * STATEMENT. TEXT IGNORED FROM 
T TO NEXT COMMA OR SEMICOLON. 

Example : 

^INCLUDE 7RECORDS; 

IEL0147I S STATEMENT HAS NO OPERAND. IGNORED. 

, %INCLUDE i STATEMENT HAS NO OPERAND. STATEMENT IGNORED. 

Example : 

^INCLUDE ; 

IEL014 8I E MEMEER NAME TRUNCATED TO N CHARACTERS. 

PREPROCESSOR RESTRICTION. MEMEER NAME TRUNCATED TO FIRST 
N CHARACTERS. 



Explanation : Only the first 8 characters of a data-set 
name are used. 



IEL014 9I E RIGHT PARENTHESIS ASSUMED. 

MISSING RIGHT PARENTHESIS ASSUMED AFTER MEMBER NAME. 

IEL0150I S BLOCK SIZE TOO LARGE FOR '^INCLUDE' FILE T. 

ELCCK SIZE EXCEEDS N FOR •% INCLUDE' FILE T. 
PROCESSING OF FILE TERMINATED. 

Explanation : When the INCLUDE compiler option is used, 
the maximum block size for an included data set is 4260 
bytes. 

Programmer Response : Use IEBGENER or a similar utility 
program to recreate the data set with the permitted block 
size. 



IEL0151I S •DECLARE" STATEMENT IGNORED. 

•DECLARE' STATEMENT INVALID AFTER 'THEN' OR •ELSE*. 
STATEMENT IGNORED. 



Example : 
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SIF CI = C2 

%THEN %DCL CI FIXED; 



Explanation ; A DECLARE statement can only appear after 
THEN or ELSE when Inside a DO group. 

IEL0152I E STATEMENT HAS NO OPERAND. IGNORED. 

•^DECLARE' STATEMENT HAS NO OPERAND. STATEMENT IGNORED. 

Example : 

^DECLARE ; 

IEL0153I S MAXIMUM EACTORING LEVEL IS N. 

PREPROCESSOR RESTRICTION. N LEVELS MAXIMUM FOR FACTORING 
IN •DECLARE' STATEMENT. TEXT TC NEXT SEMICOLON IGNORED. 

Explanation : A DECLARE statement with too many levels of 
factoring has been detected. 

Programmer Response : Subdivide the DECLARE statement into 
two or more separate statements so that the level of 
factoring becomes acceptable. 

IEL0154I E REDUNDANT COMMA IGNORED. 

MISSING OPERAND OR REDUNDANT COMMA IN •DECLARE 1 STATEMENT. 
COMMA IGNORED. 

Examp le: 

*DCL (CI, C2,, C3) CHAR; 

IEL0155I E DUMMY IDENTIFIER ASSUMED. 

IDENTIFIER MISSING WHERE EXPECTED. DUMMY ASSUMED. 

Example : 

ECL () CHAR; 



Explanation : The preprocessor expected to find an 
identifier but found a delimiter. 



IEL0156I E MULTIPLE DECLARATION OF D. 

MULTIPLE DECLARATION OF IDENTIFIER D. REFERENCE WILL END 
PROCESSING. 



Example : 



%DCL C CHAR; 
*ECL C CHAR; 
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Explanation ; An identifier may be declared only once. No 
action is taken unless the irultiply-declared identifier is 
referenced. 



IEL0157I S INVALID SYNTAX. TEXT IGNORED FROM T. 

INVALID SYNTAX IN • DECLARE • STATEMENT. TEXT IGNORED FROM 
T TO NEXT SEMICOLON. 



Example ; 

*DCL 7 FIXED; 



IEL0158I E LABEL D CANNOT BE DECLARED. 

LAEEL D CANNOT BE DECLARED. 
PROCESSING. 



REFERENCE KILL END 



Example ; 



JL; etc. 
^DECLARE L FIXED; 



IEL0159I E REDUNDANT RIGHT PARENTHESIS IGNORED. 
REDUNDANT RIGHT PARENTHESIS IGNORED. 

Example ; 

SDCL (Bl, E2)) FIXED; 

IEL016OI E T IGNORED. 

INVALID ATTRIBUTE T IGNORED,. 

Example ; 

^DECLARE B BIT CHAR; 



Explanation ; The position in which an attribute is 
expected contains something other than FIXED, CHARACTER, 
BUILTIN, ENTRY, or RETURNS. 



IEL0161I E RIGHT PARENTHESIS ASSUMED. 

MISSING RIGHT PARENTHESIS ASSUMED. 



IEL0162I E 



Example ; 

DCL (C1,C2 CHAR; 

•RETURNS" BUT NO "ENTRY* ATTRIBUTE FOR D. 

'RETURNS' BUT NO * ENTRY ' ATTRIBUTE FOR PROCEDURE D IN 
•DECLARE* STATEMENT BEGINNING AT OR BEFORE THIS LINE. 
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Example ; 

*DCL PR0C2 RETURNS (FIXED); 

Explanation ; The identifier is treated as an entry name. 
The effect of this statement is to activate the entry 
name. This error will also cause message number IEL0069I 
to be printed. 

IEL0163I E ATTRIBUTE T ASSUMED FOB D. 

NO ATTRIBUTES DECLARED FOR IDENTIFIER D. T ASSUMED. 

Example ; 

35DCL Al, A2 CHAR; 



Explanation ; The attribute CHAR is assumed for an 
identifier declared without attributes, unless the 
identifier is given previously as a label on a PROCEDURE 
statement, in which case ENTRY is assumed. 



IEL0164I I REPLACING •MACRO* BY "INCLUDE* WILL REDUCE COMPILE TIME. 

COMPILE TIME FOR THIS PROGRAM WILL BE REDUCED IF THE 
'INCLUDE' COMPILER OPTION IS SPECIFIED INSTEAD OF •MACRO' 

Explanation ; You have specified the MACRO compiler 
option. However, since all the preprocessor statements 
in your source program are %INCLUDE statements, 
compilation will be faster if you specify the INCLUDE 
option instead. 

IEL0165I S '96GOTO» D IS AN INVALID BRANCH. 

'^GOTC* D IS AN INVALID ERANCH INTO INCLUDED TEXT. 
EXECUTION WILL END PROCESSING. 



Explanation : A source statement module included in the 
text by a ^INCLUDE statement contains a %GOTO statement 
that refers to a label contained in a source statement 
module included in the text by a further, nested, %INCLUDE 
statement. 



IEL0168I E LABEL IGNORED. 

LABEL INVALID ON LISTING CONTROL STATEMENT. LAEEL 
IGNORED. 

Example : 

%L: PAGE; 



Explanation : A listing control statement should not be 
prefixed by a label. 



IEL016 9I E 



CONFLICTING ATTRIBUTE T FOR D IGNORED. 
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CONFLICTING ATTRIBUTES FOR IDENTIFIER D. ATTRIBUTE T 
IGNORED. 

Example ; 

%ECL P CBAR RETURNS (CHAR); 



IEL0170I E CONFLICTING DECLARATION OF D. 

DECLARATION OF IDENTIFIER D CONFLIC1S WITH PREVIOUS USE. 
REFERENCE WILL END PROCESSING. 



Example; 



%E; PROC RETURNS (CHAR); 

%END; 

SECL E CHAR; 



IEL0171I E ZERO OPERAND ASSUMED. 

MISSING OPERAND. FIXED DECIMAL ZERO ASSUMED. 
Example ; 

%A = A + ; 

IEL0172I S T REPLACED BY PLUS. 

INVALID OPERATOR T REPLACED BY PLUS. 
Example ; 

*A = A**2; 

Explanation ; operators "**" and "->" are not allowed in 
preprocessor statements. 

IEL0173I W BLANK ASSUMED AFTER T. 

BLANK ASSUMED BETWEEN CONSTANT T AND FOLLOWING LETTER. 

Example ; 

*DO A = "l'TC *3'; 

IEL017UI E *NOT* REPLACED BY 'HE*. 

OPERATOR •NOT* USED AS INFIX OPERATOR. REPLACED BY 'NE'. 

Example ; 

%B = (B1-.B2); 

IEL0175I W TEXT FOLLOWING •JPAGE* IGNORED TO NEXT SEMICOLCN. 

PREPROCESSOR RESTRICTION. TEXT FOLLOWING '%PAGE' IGNORED 
TO NEXT SEMICOLON. 
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Example ; 

SPAGE ("NEW TITLE 1 , 200); 



Explanation : The preprocessor does not implement the 
TITLE or page numbering option of the %PAGE listing 
control statement. 



IEL0176I E CONFLICTING USE OF D. 

USE OF IDENTIFIER D IN EXPRESSION CONFLICTS WITH PREVIOUS 
USE. REFERENCE WILL END PROCESSING. 

Example : 

*LAB:A = LAB + 2; 

IEL0177I W TEXT ON SAME LINE AS LISTING CONTROL STATEMENT. 

PREPROCESSOR RESTRICTION. TEXT ON SAME LINE AS LISTING 
CONTROL STATEMENT. STATEMENT NOT IMPLEMENTED* 



Example : 



A=E; 
XPAGE; A=B; 



Explanation : A listing control statement is not 
implemented by the preprocessor if any other text appears 
on the same line. 



IEL0178I S PLUS ASSUMED AS OPERATOR. 

MISSING OPERATOR. PLUS ASSUMED. 



Example : 

%C = A 



B; 



IEL0179I S ZERC EXPRESSION ASSUMED. 

EXPRESSION MISSING. FIXED DECIMAL ZEBO ASSUMED. 

Example : 

*CL = ; 
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IEL0180I S T REPLACED BY ZERO. 

INVALID OPERAND T REPLACED BY FIXED DECIMAL ZERO. 

Example ; 

SA = B + 1C; 

IEL0181I E LEFT PARENTHESIS ASSUMED. 

MISSING LEFT PARENTHESIS ASSUMED AT BEGINNING CF 
EXPRESSION. 

Example : 

*F1 = F2 + F3) ; 

IEL0182I U REFERENCE TERMINATED PROCESSING. 

REFERENCE TO STATEMENT OR IDENTIFIER WHICH IS IN ERROR. 
PROCESSING TERMINATED. 



Explanation ; The preprocessor tried to execute a 
statement or use an identifier which is in error. 



Programmer Response ; Check the other messages for the 
error, and correct the program. 



IEL0183I W EXCESS ARGUMENTS TO D IGNORED. 

TOO MANY ARGUMENTS TO FUNCTION D. EXCESS ARGUMENTS 
IGNORED. 



Example : 

SDCL E ENTRY (CHAR) ; 
*C = E(A,B); 



Explanation ; There are too many arguments in the 
procedure reference. 
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IEL0184I W TCC FEW ARGUMENTS TO E. 

TOO FEW ARGUMENTS TC FUNCTION D 
MISSING ARGUMENTS. 



NULL STRINGS PASSED AS 



Example ; 



XE: PROCEDURE (P,Q) RETURNS (FIXED) ; 

DECLARE (P,Q) FIXED; 

%ENE; 

%C = E(A) ; 



Explanation ; There are too few arguments in the procedure 
reference- For a fixed argument the null string will be 
converted to fixed zero. 



IEL0185I S RECORD LENGTH EXCEEDS N FOR MEMBER T. 

LOGICAL RECORD LENGTH GREATER THAN N FOR ^INCLUDE* MEMBER 
T- RECORD TRUNCATED. 

Explanation : For V-forroat or U-format records, the 
maximum permitted data length is 100 bytes. 

Programmer Response : Recreate the data set with a 
permitted record length if necessary. 

IEL0186I U PROCEDURE D NOT FOUND. 

REFERENCED PROCEDURE D NOT FOUND. PROCESSING TERMINATED. 



Explanation : An entry declaration statement has been 
found for a procedure which is not present in the text. 
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IEL0187I U RECURSIVE USE OF D INVALID. 



IEL0192I S 



RECURSIVE USE OF PROCEDURE D INVALID. PROCESSING 
TERMINATED. 



Example s 



%P: PROCEDURE RETURNS ( CHAR ) ; 
RETURN (P + 7); 

5SENE; 



IEL0188I E NULL STRING RETURNED FOR 'SUBSTR'. 

TOO FEW ARGUMENTS SPECIFIED FOR BUILTIN FUNCTION , SUBSTR' 
NULL STRING RETURNED. 



Example : 

SS = SUBSTR (A) ; 

IEL0189I E EXCESS ARGUMENTS TO T IGNORED. 

TOO MANY ARGUMENTS SPECIFIED FOR BUILTIN FUNCTION T. 
EXCESS ARGUMENTS IGNORED. 

Example ; 

SS = SUBSTR (A,B r C,D); 

IEL0190I E RESULT TRUNCATED TO 5 DIGITS. 

FIXED OVERFLOW. RESULT TRUNCATED TO RIGHTMOST 5 DIGITS 

Example : 

SA = 99999; 
*A = A + 3; 

IEL0191I E ZERO DIVIDE- RESULT SET TO ONE. 
ZERO DIVIDE. RESULT SET TO ONE. 

Example : 

$A = 0; 
SB = B/A; 



END OF SOURCE TEXT IN STATEMENT. 

END OF SOURCE TEXT IN STATEMENT. STATEMENT EXECUTION WILL 
END PROCESSING. 



IEL0193I E IDENTIFIER BEGINNING T TRUNCATED. 

PREPROCESSOR RESTRICTION. IDENTIFIER BEGINNING T IS TOO 
LONG. TRUNCATED TO FIRST 31 CHARACTERS. 
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Explanation ; Identifiers may not exceed 31 characters. 



IEL0194I S T HAS PRECISION GREATER THAN N. 

PREPROCESSOR RESTRICTION. CONSTANT T HAS PRECISION 
GREATER THAN N. FIXED DECIMAL ZERO ASSUMED. 



Example ; 

SA = 123456; 



Explanation ; The precision of fixed decinal numbers is 
limited to n digits. The value of zero is assumed for the 
constant. 



IEL0195I E QUESTION MARK IGNORED. 
QUESTION MARK IGNORED. 

Explanation ; Question mark has no syntactical meaning. 

IEL0196I S PRECISION OF CONVERTED BIT STRING GREATER THAN N. 

PREPROCESSOR RESTRICTION. BIT STRING CONVERTS TO FIXED 
DECIMAL NUMBER WITH PRECISION GREATER THAN N. RESULT 
TRUNCATED ON THE LEFT. 

Example : 

^DECLARE C CHARACTER, F FIXED; 
%C = "lOOOOOOOOOOOOOOOOO'B; 
%F = (C&C); 



Explanation ; If the bit string has more than 32 bits the 
last 32 bits are taken for the conversion. 



IEL0197I S STRING INVALID FOR CONVERSION. 

STRING CONTAINS CHARACTER NOT 'l* OR ■• 0* AND CANNOT BE 
CONVERTED TO BIT STRING. *0* ASSUMED FOR INVALID 
CHARACTERS. 



Example : 



%C = 'A f ; 

*C = (C6(A-.=B)) ; 



IEL0198I S STRING INVALID FOR CONVERSION. 

STRING CANNOT BE CONVERTED TO FIXED DECIMAL. FIXED ZERO 
RESULT ASSUMED. 



Example ; 



*C = 'IB' 
?6A = 2 + C; 
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IEL0199I E •%* MISSING ON LISTING CONTROL STATEMENT. 

•%• MISSING ON LISTING CONTROL STATEMENT IN COMPILE-TIME 
PROCEDURE. 

Example : 



%P: PROC RETURNS (CHAR) ; 

SKIP (2), • 
SENE; 



Explanation : A listing control statement, even when in a 
preprocessor procedure, roust be preceded by •%• . 



IEL0200I U REFERENCE TO D TERMINATED PROCESSING. 

IDENTIFIER D WITH CONFLICTING USE OR MULTIPLE DEFINITIONS 
REFERENCED. PROCESSING TERMINATED. 



Explanation : An attempt has been made to execute a 
statement referencing an improperly defined identifier. 



Programmer Response : Check the other messages for the 
error, and correct the program. 



IEL0201I S D IS UNINITIALIZED. 

UNINITIALIZED VARIABLE D USED. NULL STRING OR ZERO VALUE 
GIVEN. 



Example : 

^DECLARE A FIXED; 
%E = A; 



Explanation : Variables should be assigned values before 
being used. 



IEL0202I U •DD* STATEMENT FOR ^INCLUDE* D MISSING. 

•DD' STATEMENT FOR ^INCLUDE' D IS MISSING. PROCESSING 
TERMINATED. 

IEL0203I U I/O ERROR SEARCHING FOR ^INCLUDE' D. 

UNRECOVERABLE I/O ERROR SEARCHING FOR '^INCLUDE* MEMBER D. 
PROCESSING TERMINATED. 



IEL0204I U INVALID RECORD FORMAT FOR ^INCLUDE* D. 

INVALID RECORD FORMAT SPECIFIED FOR '^INCLUDE' D. 
PROCESSING TERMINATED. 



IEL0205I U '•KINCLUDE' D NOT FOUND ON DATA SET. 

•JSINCLUDE" D MEMBER NOT FOUND CN DATA SET. PROCESSING 
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TERMINATED. 



IEL0206I W 



RECORD LENGTH ASSUMED EQUAL TC BLOCKSIZE. 



RECCRD LENGTH NOT SPECIFIED FOR *% INCLUDE • D. ASSUMED 
EQUAL TO BLOCKSIZE. 



IEL0207I W 



BLOCKSIZE ASSUMED EQUAL TO RECCRD LENGTH. 



ELCCKSIZE NOT SPECIFIED FOR '^INCLUDE* D. ASSUMED EQUAL 
TO RECORD LENGTH. 



IEL020 8I W 



RECORD LENGTH 80 AND BLOCFSIZE 400 ASSUMED. 



RECORD LENGTH AND BLOCKSIZE NOT SPECIFIED FOR '* INCLUDE " 
D. RECORD LENGTH OF 80 AND BLCCKSIZE OE 400 ASSUMED. 



IEL0209I U 



I/O ERROR IN READING FROM D. 



I/O ERROR WHEN READING TEXT INCLUDED FROM FILE D. 
PROCESSING TERMINATED. 



IEL0210I U 



LEVEL OE NESTING CR REPLACEMENT TOO LARGE. 



PREPROCESSOR RESTRICTION. LEVEL OF NESTING OR REPLACEMENT 
GREATER THAN MAXIMUM. PROCESSING TERMINATED. 



Explanation : The level of nesting is calculated by 
summing the number of current unbalanced left parentheses, 
the number of current nested DCs, the number cf current 
nested IF's, and the number of current nested 
replacements. A level of 25 is always acceptable. 



IEL0212I S 



INPUT RECORD LENGTH LESS THAN LEFT MARGIN. 



LENGTH OE INPUT RECORD LESS THAN LEFT MARGIN CF MARGINS 
OPTION. RECCRD IGNORED. 



Explanation ; The length of an input record is less than 
the left margin of the MARGINS specification. 



Programmer Response : Check the use of the MARGINS option; 
check that a short record is intended. 



IEL0213I E 



'RETURNS (FIXED)* ASSUMED. 



DATA ATTRIBUTE IN *%PROCEDURE* STATEMENT IS NOT 
PARENTHESIZED AND IS NOT PRECEDED EY 'RETURNS*. 
•RETURNS (FIXED)* ASSUMED. 



Example ; 



: PROC FIXED; 



IEL0214I E 



'RETURNS (CHAR)* ASSUMED. 
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IEL0215I E 



DATA ATTRIBUTE IN '^PROCEDURE* STATEMENT IS NOT 
PARENTHESIZED AND IS NOT PRECEDED BY 'RETURNS'. 
•RETURNS (CHAR) • ASSUMED. 

Example : 

XP: PROC CHAR; 

MISSING PARENTHESIS IN D ARGUMENT LIST. 

RIGHT PARENTHESIS ASSUMED AT END OF ARGUMENT LIST FOR 
PRCCEEURE D. 



Example : 



XDCL C CHAR; 

XE: PROC(P) RETURNS (CHAR); 



XEND; 

XC = 'E(6' 



IEL0216I U INVALID STATEMENT IN E ARGUMENT LIST. 

ARGUMENT LIST FOR PROCEDURE D CONTAINS A PREPROCESSOR 
STATEMENT. PROCESSING TERMINATED. 

Example ; 



XDCL P ENTRY, X FIXED; 
P(XX = 1;X) = 1; 



Explanation ; Preprocessor statements may not be embedded 
in the argument list of a preprocessor function reference 
appearing in non- preprocessor text. 



IEL0217I W ARGUMENT LIST FOR D MISSING. 

ARGUMENT LIST FOR D IS MISSING. PROCEDURE INVOKED 
WITHOUT ARGUMENTS. 

Example : 

XDCL VAL CHAR; 

XVAL = 'BA*; 

XBA: PROC(A,B) RETURNS (CHAR) ; 

DCL (A, B) CHAR; 

RETURN ( • Z f | | A | | E) ; 

XEND BA; 

XACT BA; 

VAL (C,D); 



Explanation : When the active identifier VAL 
is encountered, it is replaced by its current value BA. 
Since the RESCAN option applies (by default) , the 
replacement value EA is rescanned for possible further 
replacement. Since this value is an active reference to 
a procedure with arguments, but no argument list is 
present in the value being currently scanned, this 
message is issued. The procedure BA is invoked without 
arguments* and the returned value Z is inserted into 
preprocessed text after further rescanning (and 
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replacement if appropriate) . 

Note that it is not possible for the argument list (C,D) 
to be associated with the replacement value BA because 
of the rules for rescanning and replacement. Fcr full 
details of these rules, see the section "Rescanninng and 
Replacement" in Chapter 16, "Compile -Time Facilities", 
of the language reference manual. 



IEL0218I E 



D USED FOR REPLACEMENT 



IDENTIFIER HAS MORE THAN N CHARACTERS. REPLACEMENT DONE 
CN TRUNCATED FORM D. 



Explanation : An identifier activated for replacement by 
the preprocessor has more than the permitted number of 
characters. Consequently, any replacement wiH be 
performed on the given truncated form. 



Programmer Response ; Modify the program so that the 
identifier is reduced to an acceptable length cr check 
that the replacement of the truncated form given does not 
result in further errors. 



IEL0219I E 



THIRD ARGUMENT OF 'SUBSTR' NEGATIVE. 



THIRD ARGUMENT OF BUILTIN FUNCTION 'SUBSTR' NEGATIVE. 
NULL STRING RETURNEE. 



IEL0220I E 



THIRD ARGUMENT OF 'SUBSTR' TOO LARGE. 



THIRD ARGUMENT OF EUILTIN FUNCTION 'SUBSTR' GREATER THAN 
STRING LENGTH. RETURNED VALUE TRUNCATED AT END OF SOURCE 
STRING. 



IEL0221I E 



ARGUMENTS OF "SUBSTR' TOO LARGE. 



THE SUM OF THE SECOND AND THIRD ARGUMENTS OF EUILTIN 
FUNCTION 'SUBSTR' GREATER THAN SIRING LENGTH PLUS ONE. 
RETURNED VALUE TRUNCATED AT END OF SOURCE STRING. 



IEL0222I E 



SECONE ARGUMENT OF 'SUBSTR' SET TO ONE. 



SECOND ARGUMENT OF EUILTIN FUNCTION 'SUBSTR* LESS THAN 
ONE. VALUE SET TO ONE. 



IEL0223I E 



SECONE ARGUMENT OF 'SUBSTR' TOO LARGE. 



SECOND ARGUMENT OF EUILTIN FUNCTION * SUBSTR ' GREATER THAN 
STRING LENGTH. NULL STRING RETURNED. 



IEL0224I S 



UNINITIALIZED VARIABLE IN ARGUMENT LIST. 
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UNINITIALIZED VARIAELE USED IN EUILTIN FDNCTICN ARGUMENT 
LIST. NULL STRING ASSUMED. 



Explanation : The variable should be initialized before 
invoking the built-in function. If a FIXED parameter is 
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matched with a null string argument, the parameter will 
assume a value of zero. 



IEL0225I U 



CHARACTER STRINGS TOO LONG. 
PHASE P. 



COMPILATION TERMINATED IN 



COMPILER RESTRICTION. CHARACTER SIRING VARIABLES AND 
TEMPORARIES TOO LONG. COMPILATION TERMINATED IN PHASE P. 



Explanation : The total length of all character 
preprocessor variables and all character string 
temporaries being used in the evaluation of a preprocessor 
expression may not exceed a compiler maximum value. 
Compilation is terminated as the compiler dictionary has 
been filled up and no further information can be held 
in it. 



Programmer Response : The error message identifies the 
preprocessor line being handled at the point of 
termination. Check the program for source errors or 
extremely long character string variables and correct or 
redesign the program if necessary. Alternatively, increase 
the storage available to the compiler; this may alleviate 
the problem. 



IEL0226I E RIGHT PARENTHESIS ASSUMED. 

RIGHT PARENTHESIS ASSUMED AFTER RETURNED VALUE IN 
'^PROCEDURE' STATEMENT. 



Example : 

%V: PROC RETURNS (CHAR; 

IEL0227I E LEFT PARENTHESIS ASSUMED. 

LEFT FARENTHESIS ASSUMED EEFORE MEMBER NAME. 



IEL0228I E 



Example : 

%INCLUDE MEMEER) ; 

'LENGTH 1 INVOKED WITH NO ARGUMENTS. 

EUILTIN FUNCTION "LENGTH 1 INVOKED WITH NO ARGUMENTS. 
FIXED ZERO RETURNED. 



IEL0229I E 



Example : 

*A = LENGTH; 

•INDEX' INVOKED WITH LESS THAN TWO ARGUMENTS. 

BUILTIN FUNCTION 'INDEX' INVOKED WITH LESS THAN TWO 
ARGUMENTS. FIXED ZERO RETURNED. 



Example : 
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*A = INDEX CAECDE*) ; 
or %A = INDEX; 



IEL2232 E GRAPHIC STRING CONSTANT NOT TERMINATED BY GRAPHIC G AND 

j SI. 

GRAPHIC STRING CONSTANT NOT TERMINATED BY GRAPHIC G 
AND SI. CORRECT TERMINATION ASSUMED. 

Explanation : The graphic quotation mark terminating a 
graphic string must be followed by a graphic "G" and a 
right delimiter (the default is an SI control character) . 

IEL2233I E SEMICOLON MISSING. T TO NEXT SEMICOLON IGNORED. 

SEMICOLON MISSING IN • %NOTE * STATEMENT. TEXT IGNORED 
FRCM T TO NEXT SEMICOLON. 

Example ; 

%NOTE (A) ; 
B=5; 

IEL2234I E SEVERITY N INVALID. T ASSUMED. 

INVALID SEVERITY CODE N IN '%NOTE* STATEMENT. T ASSUMED. 

Example ; 

%NCTE ('XYZ'rS); 

Explanatio n: The severity code in a %NOTE statement must 
be 0, 4, 8, 12, or 16. 

IEL2235I E MESSAGE TEXT TRUNCATED TO N CHARACTERS. 

MESSAGE TEXT IN *%NOTE' STATEMENT TOO LONG. TRUNCATED TO 
FIRST N CHARACTERS. 

Explanation : The message text in a %NOTE statement must 
not exceed 256 characters in length. 

IEL2236I E ARGUMENTS TO T IGNORED. 

ARGUMENTS SPECIFIED FOR BUILTIN FUNCTION T. ARGUMENTS 
IGNORED. 

Example : 

%L = COUNTER (A) ; 
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IEL2237I E 'COUNTER' EXCEEDS '99999* . RESET- 

VALUE OF "COUNTER' EXCEEDS '99999*. VALUE RESET TO 
•00000'. 

Explanation : The COUNTER built-in function nay not be 
invoked more than 99999 times. 

IEL2238I E LEFT PARENTHESIS ASSUMED. 

MISSING LEFT PARENTHESIS ASSUMED IN ' %NOTE ' STATEMENT. 

IEL2239I W LISTING CONTROL STATEMENT SPANS LINES. 

PREPPOCESSOR RESTRICTION. LISTING CONTROL STATEMENT 
SPANS LINES. STATEMENT NCT IMPLEMENTED. 



Explanation ; A listing control statement is not 
implemented by the preprocessor if it spans lines. 



EEL22U0I E FIRST SETTING OF PARAMETER T ASSUMED. 

PARAMETER T MAY NCT BE SET MORE THAN ONCE. FIRST SETTING 
ASSUMEE. 



Example ; 

%P: PROC(A f B) STMT RETURNS (CHAR) ; 



%END P; 
%ACT P; 
P(X r Y) A(Z) ; 



Explanation ; In a statement-form procedure invocation, 
an attempt has been made to set the same parameter more 
than once, either by a positional argument and a 
keyword argument, or by more than one keyword argument. 



IEL2241I E SPECIFICATION T IGNCRED. 

INVALID SPECIFICATION IN 'XPRCCEDURE* STATEMENT. 
T IGNORED. 



Explanation ; Only the attibutes RETURNS and STATEMENT 
may appear on the XFRCCEDURE statement. 



IEL2242I E INVALID KEYWORD T AND ANY ARGUMENT IGNORED. 

INVALID KEYWORD IN STATEMENT- FORM PROCEDURE INVOCATION. 
T AND ANY ARGUMENT IGNCRED. 
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Example : 

%P: PROC(A,B,C) RETURNS (FIXED) STMT; 



%ENE P; 
SACT P; 
F C(X) A D(Z) ; 



Explanation : A keyword has been specified in a 
statement- form procedure invocation that is net the name 
of any of the parameters of the procedure. 



IEL22U3I E COMMA REPLACED BY BLANK. 



INVALID COMMA IN STATEMENT-FORM PROCEDURE INVOCATION 
REPLACED EY BLANK. 



Example : 



%P: PROC(D,E,F) RETURNS (CHAR) STMT; 



%END P; 

SDCL P ENTRY; 

F E(XYZ), F(ABC) ; 



IEL2244I E 'PARMSET' INVOKED IN NON- PREPROCESSOR TEXT. 

•PARMSET' BUILTIN FUNCTION INVOKED IN NCN-PREPRCCESSOR 
TEXT. NULL STRING RETURNED. 



Example : 

%LCL A CHAR; 
C=PARMSET(A) ; 



IEL2245I E 'PARMSET" INVOKED OUTSIDE A PROCEDURE. 

•PARMSET* BUILTIN FUNCTION INVOKED OUTSIDE A PREPROCESSOR 
PROCEDURE. BIT VALUE ZERO RETURNED. 



Example : 

*DCL C CHAR, F FIXED; 
?EF=PARMSET(C); 



IEL22U6I E 'PARMSET' HAS NO ARGUMENT. 

•PARMSET' BUILTIN FUNCTION HAS NO ARGUMENT. 
ZERO RETURNED. 



BIT VALUE 



Example : 



*P: PROC(A) RETURNS (CHAR); 
DCL (A f B) CHAR; 
B= PARMSET; 
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IEL2247I E ARGUMENT TO f PARMSET' IS NOT A PARAMETER. 

ARGUMENT TO 'PARMSET' BUILTIN FUNCTION IS NOT A PARAMETER 
OF THIS PROCEDURE. BIT VALUE ZERO RETURNED. 



Example : 



%P: PROC(A) RETURNS (FIXED) ; 
ECL (A,B,C) CHAR; 
B=PARMSET(C) ; 



IEL224 8I E RIGHT PARENTHESIS AND SEMICOLON ASSUMED IN D ARGUMENT 
LIST. 

RIGHT PARENTHESIS AND SEMICCLCN ASSUMED AT END CF ARGUMENT 
LIST FOR PROCEDURE E. 



Example : 



%DCL C CHAR; 

%C=*P E(6"; 

%P: PROC(E,F> STMT RETURNS (CHAR) ; 



%ENE; 
3ACT P; 
C; 



Explanation ; This situation can arise where rescanning 
and replacement are involved, when the final insertion 
into the preprocessed text is net done until all 
replacement is completed. Thus, in the example, C is 
replaced by an invocation of procedure P (which is 
erroneous and hence the message) which is in turn replaced 
by the returned value froir the procedure. If further 
replacements are not possible, this is inserted into the 
text and the semicolon is then processed. 



IEL224 9I E SEMICOLON ASSUMED IN D ARGUMENT LIST- 

SEMICOLON ASSUMED AT END CF ARGUMENT LIST FOR PROCEDURE 
D. 



Example ; 



%DCL C CHAR; 

%PROCl: PR0C(A1,B1) STMT RETURNS (CHAR) ; 



%END ; 

%ACT PROCl; 

*C=" PROCl BK25)' ; 

C; 



Explanation ; This situation can arise where 
rescanning and replacement are involved, when the final 
insertion into the preprocessed text is not done until 
all replacement is completed. Thus, in the example, C 
is replaced by an invocation of procedure PROCl (which 
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is erroneous and hence the message) which is in turn 
replaced by the returned value from the procedure. 
If further replacements are not possible this is inserted 
into the text and the semicolon is then processed. 



IEL2250I I,W T 
E,S,U 

T 



Example ; 

KNOTE ('THIS IS A MESSAGE' ,8); 

gives rise to: 

IEL2250I E THIS IS A MESSAGE. 



Explanation : This message number identifies user 
supplied messages generated by the preprocessor %NOTE 
statement. 



IEL2255I E LEFT PARENTHESIS ASSUMED AFTER 'RETURNS'. 

LEFT PARENTHESIS ASSUMEP AFTER 'RETURNS' IN »%PROCEDURE' 
STATEMENT. 



IEL2256I E CONFLICTING ATTRIBUTE T IGNORED. 

ATTRIBUTE T IN ■ ^PROCEDURE ' STATEMENT CONFLICTS WITH A 
PREVIOUSLY SPECIFIEE ATTRIBUTE AND IS IGNORED. 



IEL2257I E 



Example : 

%V'.VROC RETURNS (FIXED) RETURNS(CHAR) ; 

INVALID SYNTAX. TEXT IGNORED FROM T. 

INVALID SYNTAX IN * ^PROCEDURE ' STATEMENT. TEXT IGNORED 
FROM T TO NEXT SEMICOLON. 



Example 

%B: PROC(A) RETURNS=CHAR; 

IEL2258I S INVALID SYNTAX. TEXT IGNORED FROM 1. 

INVALID SYNTAX IN STATEMENT-FORM PROCEDURE INVOCATION. 
TEXT IGNORED FROM T TO NEXT SEMICOLON. 

Example 

%Q=PROC(J,K f L) STMT RETURNS (CHAR) ; 
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55END Q; 
%ACT Q; 
CJA) L(12) K 5; 



*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TC PAGE 3 *** 



IEL2259I W ARGUMENT N TO T MISSING. 

ARGUMENT N TO BUILTIN FUNCTION T MISSING. NULL STRING 
F2SSEE. 



Explanation : An argument in the function reference is 
missing. The null string will be converted tc fixed zero 
where a fixed argument is required. 



IEL2260I W RESTRICTED VALUE FOUND IN GRAPHIC CHARACTER. 

Explanation ; A value between and including X'OO' through 
X'06' was found in either a graphic constant or a graphic 
string within comments in the input stream. The restricted 
value is replaced with a blank (X'40 1 ) and processing 
continues. 
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COMPILER MESSAGES 



IEL023 0I U COMPILER ERROR OR RESTRICTION NUMBER N DURING PHASE P. 
COMPILER ERROR NUMBER N DURING PHASE P. 

Explanation : An error has occurred during compilation or 
a compiler restriction has been exceeded. A detailed 
explanation of this message is given in "Appendix: Error 
and Restriction Numbers" in this publication. 

Programmer Response for Errors : Take the prescribed 
action given in the OS PL/I Optimizing Compiler: Program 
Logic, and if necessary rerun the job. If the problem 
recurs, call IBM for programming support. Before calling 
IBM, refer to the introduction for details of information 
that IBM will need in order to correct the problem. 



Programmer Response for Restrictions 
program. 



Simplify the source 



IEL0231I U 4 8-CHARACTER SET RECORD LENGTH LESS THAN THREE. 

COMPILER RESTRICTION. 48-CHARACTER SET RECORD LENGTH LESS 
THAN THREE. COMPILATION TERMINATED. 



Explanation ; The source margins for the compilation are 
less than three characters apart. Therefore, composite 
symbols of the 48-character set, such as "NOT" or "CAT" 
cannot be accomodated on a single record. 



IEL0232I S 'PROCEDURE* ASSUMED AS FIRST STATEMENI. 

FIRST STATEMENT NCT 'PROCEDURE'. 'PROCEDURE' SIATEMEN1 
ASSUMED. 



Explanation ; The first statement in a source program must 
te a PROCEDURE statement. 



Programmer Response ; The source program should be 
checked, particularly the control (that is, JCL and 
♦PROCESS) statements and source margins. The source 
program should be correctly recorded on its input medium. 
Ensure that a PROCEDURE statement heads the source 
program . 



IEL0233I E COLON ASSUMED [AFTER T] . 

T ASSUMED TO BE STATEMENT LAEEL. COLON ASSUMED. 

Example ; 

X GOTO Y; 



Explanation ; A statement keyword is preceded by a 
possible label, but no colon is present. 
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IEL023UI S INVALID SYNTAX. T IGNORED. 

STATEMENT BEGINS WITH INVALID SYNTAX. T IGNORED. 



IEL0235I S STATEMENT ASSUMED TO EE CONTINUATION OF 'DECLARE* . 

STATEMENT BEGINS WITH INVALID SYNTAX. ASSUMED TC BE 
CONTINUATION OF PRECEDING 'DECLARE' STATEMENT. 



Example : 

ECL A;B,C; 



Explanation ; An unrecognizable statement follows a 
DECLARE statement and is assumed to be a DECLARE statement 
also. 



IEL0236I W INPUT RECORD LENGTH LESS THAN LEFT MARGIN. 

LENGTH OF INPUT RECORD LESS THAN LEFT MARGIN 
OF 'MARGINS' OPTION. RECORD IGNORED. 

Programmer Response ; Check the use of the MARGINS option, 
and/or that a short record is intentional. 



IEL0237I S 



INVALID CHARACTER [AFTER T] 



T IGNORED. 



TEXT IN OR FOLLOWING THIS STATEMENT CONTAINS INVALID 
CHARACTER [AFTER Tl. T IGNORED. 



Example ; 

CALL E(A,B,?); 



Explanation ; The presence of an invalid character might 
be detected before the start of a statement. 
Consequently, the statement number may not be updated. 
When such an error is detected, the text is ignored from 
the start of the statement to the invalid character. The 
remaining characters in the statement will be treated as 
the complete statement. Consequently, ether errors will 
almost certainly be indicated. These apparent errors will 
not be indicated if the program is recompiled with the 
invalid character corrected. 



IEL0238I W CHARACTER STRING CONTAINS SEMICCLCN. 

CHARACTER STRING CONSTANT CONTAINS SEMICOLON. 

Example : 

STRING = 'B = C; »; 



Explanation : A common error is to omit one of a pair of 
quotation marks round a character string constant. The 
presence of a semicolon in a constant could be an 
indication of such an error, although it is not an error 
in itself- 
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I EL 02391 W COMMENT CONTAINS SEMICOLON. 

COMMENTS IN OR FOLLOWING STATEMENT CONTAIN ONE OR MORE 
SEMICOLONS. 



Example ; 

/* A = B; */ 



Explanation : A common error is to omit the delimiter •*/• 
after a comment. The presence of a semicolon in a comment 
could be an indication of such an error, althcugh it is 
not an error in itself. 



IEL0240I S QUOTE ASSUMED [AFTER T] . 

END OF SOURCE TEXT FOUND WITH UNMATCHED QUOTE. 
ASSUMED [AFTER T] . 



QUOTE 



Explanation : A quotation mark has been omitted causing 
the latter part of the program to appear as a string 
constant. A quote has been inserted prior to the first 
semicolon in this string. Note that statement numbers for 
statements following the statement in which the unmatched 
quote appears will not be printed. 

Programmer Response : Check whether the quote was omitted 
or the source program is incomplete. 

IEL02U1I S 'END' STATEMENT (S) ASSUMED. 

END OF SOURCE TEXT FOUND BEFORE LOGICAL END OF PROGRAM. N 
■END" STATEMENT (S) ASSUMED. 

Explanation : There are insufficient END statements to 
close all blocks. Any incomplete statements are ignored. 
Sufficient END statements are assumed in order to give 
valid nesting. 

Programmer Response ; Check the program block structure 
and that the source program is complete. 



IEL0242I S 



STATEMENT TOO LARGE. T TO T IGNORED. 



COMPILER RESTRICTION. STATEMENT EXCEEDS MAXIMUM LENGTH. 
TEXT IGNORED FROM T TO T. 

Explanation ; The statement is too long to be handled by 
the compiler in the storage space allocated to the 
compiler. See the discussion of SIZE in the Programmer's 
Guide for this compiler. 

Programmer Response ; Divide the statement into two or 
more statements or remove any superfluous blanks. It 
may also be necessary to increase the amount of main 
storage available in the compiler. 



IEL0243I S INVALID IDENTIFIER [AFTER T] . T REPLACED BY NULL. 

INVALID IDENTIFIER FOLLOWING KEYWORD T. T REPLACED BY 
NULL STATEMENT. 
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Example : 

1. GOTO *; 

2. CALL 1; 

3. ON(A 

IEL0244I S QUOTE ASSUMED [AFTER T3 . 

STATEMENT LENGTH MORE THAN COMPILER MAXIMUM AND CONTAINS 
UNMATCHED QUOTE. QUOTE ASSUMED [AFTER T] . 



Explanation ; The compiler has assumed that the statement 
size appears to be too long because of the omission of a 
quote, and has assumed a quote prior to a semicolon within 
the statement. Note that statement numbers fcr statements 
following the statement in which the unmatched quote 
appears will not be printed. 



IEL0245I S OPERAND INVALID [AFTER T] . 

OPERAND MISSING OR INVALID IN EXPRESSION [AFTER T] 



Explanation ; The compiler action depends on the context 
of the expression. A further message will indicate the 
action taken. 

Programmer Response ; Check for a further message for this 
statement. 



IEL0246I S OPERATOR INVALID [AFTER T3. 

INVALID USE OF PREFIX OPERATOR [AFTER T] . 



Example ; 
A = 



B + H -> C; 

j 



Ti 

Explanation ; The compiler action depends on the context 
of the expression. A further message will indicate the 
action taken. 



Programmer Response ; Check for the invalid use of an 
operator. 

IEL0247I S INVALID SYNTAX. T REPLACED BY N. 

INVALID SYNTAX IN 'IF* STATEMENT EXPRESSION. T HAS BEEN 
REPLACED BY N. 



Example ; 



r 1 

IF A+,B THEN GO TO LAB; 
t 

error 
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Explanation : The reason for the syntax error is diagnosed 
separately. 



IEL0248I W INVALID USE OF •^CONTROL'. 
INVALID USE CF '^CONTROL'. 



IEL0249I E T SHORTENED TO T. 

COMFILER RESTRICTION. IDENTIFIER 1 TOO LONG. SHORTENED 
TO T. 



Explanation : The identifier is more than 31 characters 
long. The first 16 and last 15 characters are retained. 
This may cause the identifier to be no longer unique. 



IEL0250I W OPTION T OBSOLETE BDT ACCEPTED. 

•ENVIRONMENT • OPTION I IS OBSOLETE BUT IS ACCEPTED. 

Example : 

Old - DCL F FILE ENV (V (100 ) . . . ) ; 

New - DCL F FILE ENV (V BLKSIZE (100) . . . ) ; 

IEL0251I S CONSTANT T TOO LONG. 

COMPILER RESTRICTION. ARITHMETIC CONSTANT T IS TOO LONG. 



Explanation : The number of digits allowed depends on the 
type of constant, that is lf fixed or float. The expression 
containing the constant is ignored. Further action is 
indicated by subsequent messagess depending on the context 
of the expression. 



Programmer Response : Check the limits of the arithmetic 
constant and reduce it to an acceptable size. 



IEL0252I S EXFONENT MISSING IN T. 

EXPONENT MISSING IN FLOATING PCI NT CONSTANT T. 

Example : 

A = 123E * B 



Explanation : The character E is present but there are no 
digits following it. The expression containing the 
constant is ignored. Further action is indicated by 
subsequent messages depending on the context cf the 
expression. 
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IEL0253I S CHARACTER IN T NOT ZERO OR ONE. 

CHARACTER IN BINARY CONSTANT T IS NOl ZERO OR ONE. 



Explanation : The expression containing the constant is 
ignored. Further action is indicated by subsequent 
messages depending on the context of the expression. 



Programmer Response : Check for a further iressage for this 
statement. 



IEL0254I W BLANK ASSUMED [AFTER T] . 

NC ELANK BETWEEN CONSTANT AND FOLLOWING LETTER. BLANK 
ASSUMED [AFTER T] . 



Example : 



DCL 1 STRUC, 2 CODE CHARU), 2TEXT CHAR(77); 

T 



IEL0255I S EXPONENT OE T TOO LONG. 

COMPILER RESTRICTION. EXPONENT OF CONSTANT T 100 LONG. 



Explana t ion : A floating-point constant has an exponent 
that exceeds the implementation-defined limit. The 
expression containing the constant is ignored. Further 
action is indicated by subsequent messages depending en 
the context of the expression. 



Programmer Response : Check for a further message for this 
statement. 



IEL0256I S NO SIGNIFICANT DIGITS IN 1. 

CONSTANT T HAS NO SIGNIFICANT DIGITS. 

Example : 

1. .E2 

2. .E 



Explanation : The expression containing the "constant" is 
ignored. Further action is indicated by subsequent 
messages depending on the context of the expression. 



Programmer Response : Check for a further message for this 
statement. 



IEL0257I S CHARACTER IN T NOT ZERO OR ONE. 

CHARACTER IN BIT STRING CONSTANT T IS NOT ZERO OR ONE. 
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Explanation ; The expression containing the constant is 
ignored. Further action is indicated by subsequent 
messages depending on the context of the expression. 

Programmer Response ; Check for a further message f or Jthis 
statement. 

IEL0258I S INVALID PRECISION T IGNORED. 

PRECISION SPECIFICATION NOT AN UNSIGNED INTEGER. T 
IGNORED . 

Example ; 

DCL G FIXED (+ABC) DECIMAL 
t J 

T 

IEL0259I S PRECISION TRUNCATED [AFTER T] . 

SECOND INTEGER MISSING FROM PRECISION SPECIFICATION. 
PRECISION TRUNCATED [AFTER Tl AFTER FIRST INTEGER. 

Example ; 

1. DCL A FIXED (9,X) 

._ > 

T 

2. B FIXED (3, ) 
> 

T 

3. C FIXED (4,E FLOAT 
> 

T 

Explanation s The base factor is assumed to be zero. 

IEL0260I S INVALID CHARACTER [AFTER T x l . T a IGNORED. 

INVALID CHARACTER IN PICTURE [AFTER T*] . T 2 IGNORED. 

Example ; 

T a 

r i 
PIC ^sw^ 
> 
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IEL0261I S PARENTHESIS MISSING [AFTER Tj.3 . T a IGNORED. 

RIGHT PARENTHESIS MISSING FROM SCALING FACTOR OR 
REPETITION FACTOR IN PICTURE [AFTER 1 X 1 . T a IGNORED. 

Example : 

T 2 

PIC "99F<2 '• 
> 

IEL0262I S INVALID REPETITION FACTOR [AFTER T x l . T a IGNORED. 

REPETITION FACTOR NOT AN UNSIGNED INTEGER IN PICTURE 
[AFTER Ta.]- T 2 IGNORED. 

Example : 

T a 

1. PIC , (+3)9 f 

> 

T a 

2. PIC , S(A)9 f 
> 

Tx 

IEL0263I S PICTURE INVALID [AFTER T*] . T 2 IGNORED. 

NO CHARACTER FOLLOWS REPETITION FACTOR IN PICTURE [AFTER 
TaJ. T a IGNORED. 

Example : 

Ta 

PIC , 59(3) f 
> 

IEL0264I S PICTURE INVALID [AFTER T^.] . T 2 IGNORED. 

•F* NOT FOLLOWED BY LEFT PARENTHESIS IN PICTURE [AFTER 
Til. T a IGNORED. 

Example : 

T a 

r 1 

PIC , 99F3 f 
, > 
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IEL0265I S PICTURE INVALID [AFTER T A ] . T a IGNORED. 

INVALID SCALING FACTOR IN PICTURE [AFTER T*.] . T a IGNORED. 

Example ; 

T a 

r 1 

1. PIC'99F(*) 
> 

Ti 
T 2 

2. PIC99FC ) 
> 

IEL0266I S STATEMENT INVALID AFTER •ELSE*. 

NON -EXECUTABLE STATEMENT FOLLOWING 'ELSE*. NULL STATEMENT 
ASSUMEE AS •ELSE* CLAUSE. 

Explanation : A null statement is assumed after the word 
ELSE so that the non-executable statement is no longer the 
ELSE clause. 

Example : 

IF A THEN B = 3; ELSE DCL C; 

IEL0267I S STATEMENT INVALID AFTER 'THEN'. 

NON- EXECUTABLE STATEMENT FOLLOWING 'THEN". NULL STATEMENT 
ASSUMEE AS 'THEN* CLAUSE. 

Explanation : A null statement is assumed as the THEN 
clause, forcing the non-executable statement out of the 
compound IF statement. 

Example : 

IF A THEN FORMAT (A (3))... 

IEL0268I S REFERENCE TO UNKNOWN LABEI IGNORED. 

LABEL REFERENCED BY 'END' STATEMENT CANNOT BE MATCHED. 
REFERENCE IGNORED. 

IEL0269I U TOO MANY "PROCEDURE 1 'BEGIN' AND 'ON 1 STATEMENTS. 

COMPILER RESTRICTION. TOO MANY "PROCEDURE* 'BEGIN' AND 
"ON* STATEMENTS IN THE PROGRAM. 

Explanation : The implementation restriction en the number 
of blocks in a compilation has been exceeded. 
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Programmer Response ; Subdivide the program into two or 
more procedures for separate compilation', or rewrite it 
with less blocks. 



IEL0270I U •BEGIN' OR •PROCEDURE' NESTING EXCEEDS MAXIMUM. 

COMPILER RESTRICTION. •BEGIN 1 OR •PROCEDURE' STATEMENT 
NESTING MORE THAN MAXIMUM LEVEL. 



Explanation ; The implementation restriction on the level 
to which blocks may be nested has been exceeded. 



Programmer Response ; Reorganize the program tc contain 
fewer levels of nested blocks. 



IEL0271I S *THEN' ASSUMED [AFTER T]. 

KEYWORD 'THEN' ASSUMED [AFTER T] IN 'IF' STATEMENT. 



Explanation ; The keyword THEN is missing from cr 
incorrectly placed in the IF statement. 



Example ; 

1. IF A = B GOTO L; 

2. IF BSC IF D&E THEN DO; 



Programmer Response ; Check the IF statement. 

IEL0272I S INVALID 'ON' UNIT. NULL STATEMENT ASSUMED. 

INVALID ON-UNIT SPECIFIED. NULL STATEMENT ASSUMED. 



Explanation ; The specified statement may be a labeled 
statement, or an unlabeled statement not permitted as an 
on- unit. The null statement is assumed as the on-unit, 
and the text of the invalid on-unit is treated as one or 
more separate statements. 



IEL0273I E PREFIXES ON 'ELSE' ASSUMED TO EE ON NEXT STATEMENT, 

PREFIXES ON KEYWCRD 'ELSE' ARE ASSUMED TO PRECEDE 
FOLLOWING STATEMENT. 



Example ; 

IF A THEN B = 3; 
L; ELSE B = 4; 



Explanation ; Labels and condition prefixes are 
transferred to the statement following ELSE. 
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IEL0274I S STATEMENT INVALID AFTER 'THEN* . 

STATEMENT MISSING OB INVALID AFTER 'THEN'. NULL STATEMENT 
ASSUMED AS , THEN' CLAUSE. 

Explanation : No unit has been provided for the THEN 
clause. 

Example : 

IF A THEN ELSE B = H; 
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IEL0275I S STATEMENT INVALID AFTER 'ELBE'. 

STATEMENT MISSING OF INVALID AFTER 'ELSE'. NULL STATEMENT 
ASSUMED AS 'ELSE* CLAUSE. 



Explanation ; No unit has been provided for the ELSE 
clause. 



Example : 

IF A THEN IF E THEN C = D; ELSE ELSE E = H ; 

IEL0276I S 'ELSE 1 IN INVALID POSITION IGNORED. 

KEYWORD 'ELSE* APPEARS IN INVALID POSITION. 'ELSE* 
IGNCREE. 

Example ; 

IF A THEN B = C; D = E; ELSE... 



Programmer Response ; Correct the source program. Check 
that THEN clauses in nested IF statements are correct. 



IEL0277I W •SYSIN* OR 'SYSPRINT' ASSUMED FOR I/O , ON* CONDITION. 

I/O ON CONDITION HAS NO FILE NAME SPECIFIED. *SYSIN' OR 
•SYSPRINT* ASSUMED. 



Explanation : ENDFILE (SYSIN) is assumed for input, and 
ENDPAGE (SYSPRINT) is assumed for output. All other I/O 
conditions are ignored and are assumed to be replaced by 
ON ERROR. 



Example ; 



ON ENDFILE SNAP; 

ON ENDPAGE PUT PAGE; 



IEL0278I S INVALID CONDITION [AFTER Ta.3 - T 2 REPLACED BY •ERROR*. 

INVALID 'ON* CONDITION NAME [AFTER I*]. T 2 REPLACED BY 
•ERROR'. 



Example ; 

ON FRED A = B; 

> L J 

Ti. T a 



IEL0279I S REDUNDANT COMMA [AFTER Tl IGNORED. 

MISSING ITEM OR REDUNDANT COMMA IN LIST [AFTER T] . COMMA 
IGNORED. 



Explanation : An expected item has not been found 
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following a left parenthesis or comma in a list* for 
example: a parameter list, a CHECK list, a FREE statement 
list, or a data list. The comma is ignored, cr the whole 
list is ignored if it becomes null. Further action in 
addition to ignoring a null list is indicated by 
subsequent messages depending on the type of list 
concerned. 



Example ; 

PUT DATA (,B,C) ; 



Programmer Response ; Correct the source program. Check 
also for further messages. 



IEL0280I E LEFT PARENTHESIS ASSUMED [AFTER T] . 

LEFT PARENTHESIS ASSUMED [AFTER TJ . 

Explanation ; A left parenthesis has been oiritted. 

Example : 

DO WHILE X = Y) ; 

IEL0281I S ITERATIVE SPECIFICATION INVALID [AFTER T A ] . 

ITERATIVE SPECIFICATION INVALID [AFTER 1 ± i . 



Explanation : The control variable of express ionl is 

missing. 



IEL0282I S 



Examp le: 

1. DO 1 TO 3... 

2. EO 1,1.. 

3. EO J = * 

EXPRESSION MISSING AFTER 'TO' OR 'BY*. 

EXPRESSION FOLLOWING 'TO* OR 'EY* IS MISSING IN • DO* 
STATEMENT. NON- ITERATIVE , D0 f ASSUMED. 



Example : 

DO I = 1 BY; 

IEL0283I S 'RETURN" STATEMENT WITHIN ON UNIT IGNORED. 

•RETURN' STATEMENT IS WITHIN ON UNIT. STATEMENT IGNORED. 

Example : 

ON OVERFLOW RETURN; 
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IEL0284I S "IN* NOT FOLLOWED BY LEFT PARENTHESIS. 

KEYWORD 'IN" NOT FOLLOWED BY LEFT PARENTHESIS. "IN" 
IGNORED. 



Example ; 

1. ALLOCATE X IN A; 

2. ALLOCATE A IN B) ; 

IEL0285I S LAEEL MISSING. DUMMY ASSUMED. 

LABEL MISSING FROM 'PROCEDURE' OR 'ENTRY' STATEMENT. ONE 
HAS BEEN ASSUMED. 



IEL0286I S 'ENTRY' IN 'BEGIN' BLOCK IGNORED. 

'ENTRY' STATEMENT IS IN A 'BEGIN' BLOCK. STATEMENT 
IGNORED. 



Explanation : The ENTRY statement and its labels are 
ignored. 



Example : 



E: BEGIN; 
E: ENTRY; 
END B; 



IEL0287I S 'IN' OPTION INVALID [AFTER 1 X 1 . T 2 IGNORED. 

INVALID 'IN' OPTION [AFTER 1 X 1 IN 'FREE' STATEMENT. T a 
IGNORED. 



Example : 



FREE FRED IN (25 + AREA); 
t 

I I 



IEL0288I S INVALIE TEXT. T IGNORED. 

INVALID TEXT WITHIN STATEMENT. T IGNORED. 



Explanation : Invalid text has been found within a 
statement, for example, an invalid attribute or option. 
The text is ignored. Scanning of the source program 
restarts at the next recognizable item. 



IEL0289I S 'END* FOUND BEFORE END OF SOURCE TEXT. 

LOGICAL END OF PROGRAM FOUND BEFORE END OF SOURCE TEXT- 
STATEMENT IGNORED. 
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Explanation : In order to check the syntax of the whole 
source text, the END statement which prematurely 
terminates the program has been ignored. This may cause 
some extra errors in subsequent PROC, BEGIN, cr END 
statements. 



Example : 

P: PROC OPTIONS (MAIN) ; 

END; (message produced here) 

GOTO LAB; 

END; 

/* 



IEL0290I S INVALID OPTION [AFTER T x i - T a IGNORED. 

INVALID OF MULTIPLE SPECIFICATION OF OPTION [AFTER T^J. 
T 2 IGNORED. 

Explanation : The option may: 

1. have an invalid argument. 

2. be specified more than once. 

3. be spelt incorrectly. 
Hm have no argument. 

IEL0291I E INVALID SYNTAX [AFTER 1] IN •LABEL" ATTRIBUTE. 

INVALID SYNTAX FOR LABEL CONSTANT [AFTER 1 X 1 . T a IGNORED. 

Example : 



r 1 

DCL LAB LABEL(LAB1,6AB2,LAE3) ; 
> 

1* 



Explanation : The compiler has detected an item in the 
list of label constants which does not begin with an 
alphabetic character. 



Programmer Response : Correct the specif icaticn of the 
label constant. 



IEL0292I S 



LABEL LIST TOO LONG. 

COMPILER RESTRICTION. 
T HAS BEEN IGNORED. 



T IGNORED. 
LABEL PREFIX LIST TOO LCNG 



LABEL 



Explanation : The number of label prefixes plus the total 
number of characters in the label list must not exceed 
254 . The label prefix list is truncated at the nearest 
point below the permitted maximum. 

Programmer Response : The program should be rewritten with 
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shorter or fewer labels prefixed to this statement. 
Excess labels may be transferred to an immediately 
preceding null statement. 



IEL0293I S INVALID PREFIX [AFTER T] . T IGNORED. 

INVALID CONDITION PREFIX [AFTER T3. T IGNORED. 



Explanation : A colon is not present after a prefix list 
which contains at least one valid prefix condition. 



Example : 

(SUBRG) PR0C1: PROCEDURE; 

IEL0294I E T FOLLOWS LABEL BUT IS ACCEPTED. 

CONDITION PREFIX T FOLLOWS LABEL BUT IS ACCEPTED, 



Example : 

L: (50FL) : A 



E; 



Explanation : Condition prefix lists should precede any 
statement label lists. However, this compiler permits 
condition prefixes other than "CHECK" and "NOCHECK" to 
follow any statement labels . 



IEL02 95I S 1 FOLLOWS LABEL AND IS IGNORED. 

•CHECK" OR 'NOCHECK* CONDITION FREFIX FOLLOWS LABEL. T 
IGNORED. 



Example ; 



L: (CHECK (A) ,FOFL) 
I I 

L J 

T 



: A = E; 



Explanation : The check list should precede a label 



IEL0296I E COLON ASSUMED [AFTER T] . 

COLON ASSUMED AFTER T. PARENTHESIZED ITEM ASSUMED TO BE 
CONDITION PREFIX. 



Example : 

(FIXEEOVERFLOW) A=E*C; 

IEL0297I S ARGUMENT LIST INVALID [AFTER Tj.3 . l a IGNORED. 

ARGUMENT LIST MISSING OR INVALID [AFTER Tj.3 . T a IGNORED. 
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Example : 



READ FILE(F) INTO (3); 
1 



—J 



IEL0298I E CONDITION PREFIX INVALID. 

CONDITION PREFIX INVALID ON THIS STATEMENT. PREFIX LIST 
IGNORED. 



Explanation ; Condition prefix lists are invalid en ENTRY, 
DECLARE, DEFAULT, and FORMAT statements. 



IEL0299I S FACTORING INVALID [AFTER T] . 

FACTORING SPECIFIED IN 'AILCCATE* STATEMENT (AFTER T] . 
TEXT IGNORED TO NEXT SEMICOLON. 



Explanation ; No factoring of parentheses or factored 
attributes are allowed in an ALLOCATE statement. The 
ALLOCATE statement is ignored and a null statement is 
assumed. 



IEL0300I S 'INITIAL* FACTORING LEVEL [AFTER T] EXCEEDS N. 

COMPILER RESTRICTION. FACTORING LEVEL [AFTER T] IN 
•INITIAL* EXCEEDS N. ATTRIBUTE IGNORED. 



IEL0301I S SIGN IN T IGNORED. 

SIGN IN STRUCTURE LEVEL NUMBER T IGNORED. 

Example ; 

DCL + 1 A, 



Explanation ; The level number in a DECLARE statement must 
be an unsigned decimal integer. 



IEL0302I S ZERO [AFTER T] ASSUMED TO BE ONE. 

ZERO LEVEL NUMBER [AFTER T] ASSUMED 10 BE ONE. 



Explanation : The level number in a DECLARE statement must 
be an unsigned non-zero integer. 



IEL0303I S T IN 'RETURNS' INVALID. 

ATTRIBUTE T IN 'RETURNS' INVALID. ATTRIBUTE IGNORED. 

IEL0304I S INVALID SYNTAX [AFTER T x l . T 2 IGNORED. 
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INVALID SYNTAX IN ASSIGNMENT STATEMENT IAFTER T ± ] . T a 
IGNORED . 



Example : 



1. A + B 
> 

Ti 

r t 

2. A = ; 
> 

T 4 



1 
C; 



IEL0305I W INVALID USE OF LISTING CONTROL STATEMENT. 

INVALID USE OF LISTING CONTROL STATEMENT. STATEMENT NOT 
IMPLEMENTED. 



Explanation : The listing control statements must appear 
between statements and on a separate line frcir them. 



IEL0306I S NO MATCHING FORMAT LIST [AFTER T3 . 

EDIT DATA LIST HAS NO MATCHING FORMAT LIST [AFTER T] . T 
FORMAT ASSUMED. 



Explanation : Edit-direct ed transmission statements 
require format lists. 



IEL0307I S INVALID SYNTAX [AFTER T ± ] . T a IGNORED. 

INVALID SYNTAX IN DATA LIST [AFTER Ta.]. T 2 IGNORED. 



Explanation : The data list has an item missing or has an 
error in a do- loop specification. The data list is 
ignored from the invalid item. 



IEL0308I S FORMAT LIST INVALID [AFTEB T x ] . T 2 IGNORED. 

FORMAT ITEM MISSING OR INVALID [AFTER 1 X 1 . T 2 IGNORED. 



Explanation : The format item has teen omitted, has an 
invalid argument, or is incorrectly spelt. The invalid 
item is ignored, and the text is scanned for the next 
item. 



IEL0309I W •FORMAT* STATEMENT HAS NO LABEL. 
•FORMAT^ STATEMENT HAS NO LABEL. 



Explanation : A FORMAT statement cannot be referenced 
without a label. 
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IEL0310I S 



IDENTIFIER REFERENCED EY 'LEAVE' STATEMENT CAKNCT BE 
MATCHED. REFERENCE IGNORED. 



IDENTIFIER REFERENCED BY 'LEAVE' STATEMENT IS EITHER 
MISSING OR NOT ON A 'DO' STATEMENT. REFERENCE IS IGNORED. 



Example 



F: FPCC OPTIONS (MAIN); 
LABI: DO; 
LEAVE LAB2; 
END P; 



IEL0311I S 



COMMENT DELIMITER ASSUMED (AFTER 11. 



END OF SOURCE TEXT FOUND WITHIN A COMMENT. 
DELIMITER ASSUMED [AFTER Tl - 



COMMENT 



Explanation : A comment delimiter may have been omitted* 
causing the latter part of the program to appear as a 
comment. A comment delimiter is inserted at the end of 
the last source statement. 



For graphic support, a right delimiter may have been 
omitted, causing the latter part of the program to 
appear as a comment. A right delimiter is inserted at 
the end of the last source statement. 



Programmer Res ponse : 
delimiter has~been "o 
incomplete. 



Check whether the comment or right 
omitted or if the source program is 



IEL0312I U 



NO TEXT IN PROGRAM. 
NO TEXT IN PROGRAM. 



Example i 



* PROCESS A,X; 

/* PROGRAM STARTS HERE */ 



Explanation : The first comment delimiter is in positions 
1 and 2 of the record following the PROCESS statement, and 
is interpreted as an end-of-file delimiter for the input 
to the compiler. The compiler has not received any source 
statements to compile into an object module. Reasons for 
this include the error shown above , control statements out 
of sequence, and so on. 
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IEL0313I S INVALID KEYWORD [AFTER T ± ]. T a IGNORED. 

INVALID KEYWORD [AFTER T^.] IN REPETITIVE SPECIFICATION. 
T 2 IGNORED - 

Example ; 

PUT LIST((A(I) DO I = 3 IF A>E) ) ; 

t 

L J 

T 2 
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IEL0314I S END OF SOURCE TEXT FODND. T IGNORED. 

END OF SOURCE TEXT FOUND BEFORE END OF STATEMENT- T 
IGNCREE. 



Explanation : This can happen in addition to "end of 
source text found before logical end of program". 



Example : 

1. ECL A FIXED, B FLOAT, C STATIC (end of file) 

2. A = B; C = E + (end of file) 

IEL0315I S LABEL ON 'ON' UNIT IGNORED. 

'ON* UNITS CANNOT BE LABELLED. LABEL IGNORED. 

Example : 

ON OFL L: GOTO LAB; 
The label L is invalid. 



IEL0316I S SEMICOLON ASSUMED [AFTER 11 . 

END OF STATEMENT ASSUMED [AFTER T] 
SEMICOLON. 



1EXI IGNORED TO NEXT 



Explanation : A semicolon has not been found where 
expected after a syntactically correct statement, so one 
is assumed- 



Example : 

DELAY (25) THEN STOP; 

IEL0317I S ATTRIBUTE INVALID [AFTER T x ]. T 2 IGNORED. 

INVALID ATTRIBUTE SPECIFICATION [AFIER l x l . 1 2 IGNORED. 



Example : 



T 2 

r 1 

ECL JOE FOXED; 
> 



IEL0318I S 'DO* IN 'ON* UNIT REPLACED BY 'BEGIN*. 

•DO* STATEMENT IS INVALID IN *ON f UNIT. REPLACED BY 
'BEGIN'. 



Example : 

ON OFL DO; 
PUT SKIP; 

END; 
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Explanation : The only valid on- units are single 
statements or begin blocks. 



IEL0319I S MULTIPLE USE OF OPTION. T IGNORED. 

STATEMENT USES AN OPTION MORE THAN ONCE. T IGNORED. 



Example ; 



r 1 

DISPLAY(A) EVENT (B) EVENT (C) REPLY (R) * 



IEL0320I S NO 'REPLY" OPTION. TEXT [AFTER T3 IGNORED. 

•DISPLAY* STATEMENT HAS NO "REPLY* OPTION. TEXT [AFTER T3 
IGNORED . 



Example : 



DISPLAY ('HELP') EVENT (E); 

l 4 

T 



IEL0321I E LEFT PARENTHESIS ASSUMED EEFORE EXPRESSION. 

MISSING LEFT PARENTHESIS ASSUMED BEFORE EXPRESSION IN 
'DELAY* OR 'DISPLAY' STATEMENT. 



Example : 

DISPLAY MESSAGE) ; 

IEL0322I S INVALID FORMAT ITEM [AFTER TJ . T 2 IGNORED. 

INVALID SPECIFICATION IN FORMAT ITEM [AFTER 1 X 1 . T a 
IGNORED 

Example : 



CCA(3) f B(2)) 
— > 



Ti 



IEL0323I E RIGHT PARENTHESIS ASSUMED [AFTER T3 . 

REPETITIVE SPECIFICATION ENDING AT T IN DATA LIST NOT 
FOLLOWED BY RIGHT PARENTHESIS. ONE HAS BEEN ASSUMED. 



Example : 



PUT EDIT ((A(I) DO I = 1 TO 3 ) (F(3)); 

t 
missing right parenthesis assumed to te here 



Explanation : Repetitive specifications in data lists must 
be enclosed in brackets. 
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IEL0324I S NESTING LEVEL EXCEEDS N [AFTER T] . 

COMPILER RESTRICTION. LEVEL OF NESTING EXCEEDS N IN DATA 
LIST [AFTER T] . STATEMENT IGNORED. 



Explanation ; If there are no redundant brackets, rewrite 
the statement within the implementation limits. 



IEL0325I S INVALID SYNTAX IN 'CALL 1 STATEMENT. 

INVALID SYNTAX IN 'CALL' STATEMENT. STATEMENT IGNORED. 



Example : 



CALL (A r B) ; 



IEL0326I S 



•ENTRY' AND LABEL INSIDE 'DO' IGNORED. 

• ENTRY • STATEMENT AND LABEL INSIDE ITERATIVE 'DO' IGNORED. 



Explanation : Note that the label is also ignored, so that 
calls to it will be unresolved. 



Example : 

DO I = 1 TO 3; 
A(I) = BCD; 
E: ENTRY; 
Atl) = CCI); 

END; 



IEL0327I S INVALID SYNTAX. T IGNORED . 

STATEMENT BEGINS WITH INVALID SYNTAX. 1 IGNORED. 

Example : 

1. 13 14) * .- |); 

No identifier found in this statement. 

2. IF A ,GCTO LAB; 

t 
""THEN" assumed here 

",GOTO LAB;" ignored since error follows a fixup. 

Explanation : Either the statement type could not be 
identified, or, due to a fixup of an error in the previous 
statement, recovery was not attempted from the error in 
the current statement. 

IEL0328I S INVALID OPTION [AFTER T] . T IGNORED. 

INVALID OPTION [AFTER T] IN 'PROCEDURE' 'BEGIN' OR 'ENTRY' 
STATEMENT- T IGNORED. 
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Example ; 

1. P: PROC MAIN; 

2. B: BEGIN (A,B) ; 

IEL0329I S NESTING LEVEL EXCEEDS N [AFTER T] . 

COMPILER RESTRICTION. LEVEL OF NESTING EXCEEDS N IN 
FORMAT LIST [AFTER T] . STATEMENT IGNORED. 



Programmer Response : If there are no redundant brackets, 
rewrite the statement within the implementation limits. 



IEL0330I S 



NO 



[AFTER T x ] . T 2 IGNORED. 



NO •=' [AFTER Tj ] IN REPETITIVE SPECIFICATION. T 2 
IGNORED. 



Example : 



PUT LIST ((A(I) DO I TO N) ) 

t 
I T, I 



T„ 



IEL0331I S INVALID CONTROL VARIABLE [AFTER T x ] . T 2 IGNORED. 

INVALID CONTROL VARIABLE [AFTER Tj ] IN REPETITIVE 
SPECIFICATION. T 2 IGNORED. 



Example : 

PUT LIST ((A(I) DO 3 TO 4)) 

I i 



IEL0332I S PARENTHESIS NESTING LEVEL EXCEEDS N [AFTER T] . 

COMPILER RESTRICTION. LEVEL OF PARENTHESIS NESTING 
GREATER THAN N [AFTER T] . STATEMENT IGNORED. 



Example ; 

A(B(C(- 



•(A3(B3 

t 
T 



IEL0333I U STATEMENT NESTING LIMIT EXCEEDED. 

COMPILER RESTRICTION. NESTING LIMIT OF ' PROCEDURE ' | 
' BEGIN ' | ' IF ' | ' DO ' | ' SELECT ' STATEMENT HAS BEEN EXCEEDED , 
PROCESSING TERMINATED. 



Explanation : The stack containing PROCEDURE, BEGIN, IF, 
DO, and SELECT statements and their labels has overflowed. 



70 



-*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 3 *** 



Programmer Response : Either reduce the number cr length 
of the labels on these statements or restructure the 
program to reduce the depth of nesting. 



IEL0334I S OPTION CS) T MISSING FROM STATEMENT. 

OPTION (S) T MISSING FROM RECORD I/O STATEMENT. STATEMENT 
IGNORED . 



Example ; 



READ FILE(F) KEYTO(K)? (INTO option missing) 
WRITE FILE(F); CFROM option missing) 



Programmer Response ; Ensure that a correct set of options 
is specified for this statement. 



IEL0335I S T IN •OPTIONS' LIST IGNORED. 

INVALID ITEM IN 'OPTIONS* LIST. T IGNORED. 



Example ; 



P: PROC OPTIONS (MOAN); 

P; PROC OPTIONS (N0MAPIN(3) ) ; 



Programmer Response ; Check the list of valid options and 
their specification. 



IEL0336I S VARIAELE MISSING FROM 'LOCATE*. 

VARIABLE MISSING FROM 'LOCATE' STATEMENT. STATEMENT 
IGNORED. 



IEL0337I E COLON ASSUMED [AFTER T] . 

CONDITION PREFIX NOT FOLLOWED BY COLON. COLON ASSUMED 
[AFTER 11 . 



Example ; 

(STRZ) A = E; 

t 
colon missing 



IEL0338I S MULTIPLE 'TO' , OR 'BY', OR 'REPEAT' [AFTER 1 ± 1 
T a IGNORED. 

MULTIPLE 'TO' , OR *EY' f OR 'REPEAT' [AFTER T ± l 
IN REPETITIVE SPECIFICATION. T a IGNORED. 



Example; 



PUT LIST ((A (I) DO I = 1 TO 4 TO 40)) 

1 

t J 

T 2 
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IEL0339I S FILE OPTION MISSING. T IGNORED. 

MISSING FILE OPTION OR REDUNDANT COMMA IN 'OPEN* OR 
•CLOSE" STATEMENT. T IGNORED. 

Example ; 

OPEN FILE(F2) f FILE(F3) STREAM, OUTPUT; 

I I 

i j 

T 



IEL0340I S INVALID SYNTAX [AFTER T A ] . T 2 IGNORED. 

INVALID SYNTAX IN 'ENVIRONMENT* OPTION [AFTER T x l . T a 
IGNORED. 



Example ; 
DCL- 



•ENV (REROAD,HIGHINDEX (2711) ) 
t t 

error error 



Explanation ; Possible causes for this are: 

1. An invalid keyword, or keyword subset has been used 

(only LEAVE and REREAD are valid in the CLOSE 
statement) . 

2. An option has an incorrect or missing argument. 



IEL0341I S INVALID ITEM [AFTER 1 X 1 . T 2 IGNORED. 

INVALID ITEM IN PARAMETER LIST [AFTER T x ] . T a IGNORED. 



Example ; 



T : 



r i 
P: PROC(Pl, 3*F2); 

1 



IEL0342I S INVALID OPTION [AFTER T] . T IGNORED. 



INVALID OPTION IN 'DEFAULT* STATEMENT [AFTER 13. 1 
IGNORED. 



Example : 



DEFAULT RINGE(A;E) FIXED; 
t j 

T 



Explanation ; The only valid options of the DEFAULT 
statement are RANGE and DESCRIPTORS. 



IEL0343I S INVALID IDENTIFIER [AFTER T ± 3 . T 2 IGNORED. 

INVALID IDENTIFIER [AFTER T x 3 IN 'RANGE* SPECIFICATION. 
T a IGNORED. 
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Example i 



DEFAULT RANGE (A:BC) BINARY; 
1 

I T± I 

L J 



Explanation ; The syntax rules for the RANGE option of the 
DEFAULT statement are given in the language reference 
manual for this compiler. 

IEL0344I S INVALID IDENTIFIER [AFTER T x ] . T 2 IGNORED. 

INVALID IDENTIFIER [AFTER T x ] IN •GENERIC SPECIFICATION. 
T a IGNORED. 



Example : 



IEL0347I S 



DCL E ENTRY GENERIC ( (FLOAT),— 

1 



Explanation ; The syntax rules for the GENERIC attribute 
are given in the language reference manual for this 
compiler. 



IEL03U5I S INVALID "POSITION* ATTRIBUTE. T IGNORED. 

INVALID EXPRESSION IN •POSITION* ATTRIBUTE. T IGNORED. 



Example : 



DCL P2 DEF PI POS(3,4); 

I I 

I j 

T 



IEL0346I S INVALID IDENTIFIER [AFTER Tj.] . T a IGNORED. 

INVALID IDENTIFIER [AFTER Tj.1 IN NAME LIST. T a IGNORED. 



Example : 



ON CHECKCA f 3) GOTO LAB; 

ft 

TiT a 



INVALID KEYWORD. T IGNORED. 



INVALID KEYWORD IN ATTRIBUTE SPECIFICATION IN 'DEFAULT* 
STATEMENT. T IGNORED. 



Example ; 

DEFAULT RANGE (A) VILUE( ( 31, 0) ) FIXED; 

I I 

i j 
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Explanation : The syntax rules for the DEFAULT statement 
are given in the language reference manual for this 
compiler. 



IEL0348I S 'WHEW OPTION MISSING [AFTER 1 X 1 . 1 2 IGNORED. 

•WHEN* OPTION MISSING (AFTER T x ] IN •GENERIC 
SPECIFICATION. T 2 IGNORED. 



Example : 



DCL E ENTRY GENERIC(E1 IF (FLOAT), 

1 



Explanation : The rules for the GENERIC attribute are 
given in the language reference manual for this compiler. 



IEL0349I S INVALIE EXPRESSION [AFTER T A ] . T 2 KEPLACED BY 10. 

INVALID EXPRESSION [AFTER T x ] IN DIMENSION SPECIFICATION. 
T 2 REPLACED BY 10. 



Example: 

DCL A(P*Q,P-C,P/+-): 
> t 

ITiI |T 2 | 

L J L J 



Explanation : The erroneous expression is replaced to 
ensure that the required nuirber of array dimensions is 
maintained. Subsequent subscripted references to the 
array will be correct if this number of dimensions is 
used. 



IEL0350I S INVALID OPTION (AFTER T*.] - T 2 IGNORED. 

INVALID OPTION IN «GET" OR 'PUT' STATEMENT [AFTER T x ] . T 2 
IGNORED . 



Example : 



PUT LIST (A) TWICE; 
t l J 

Ti T 2 

GET PAGE DATA(D); 
1 t — J 

T± T a 



Explanation : The option is invalid or inapplicable to 



74 



*** BEFORE CALLING IEM FOR PROGRAMMING SUPPORT, REFER TO PAGE 3 *** 



this type of statement. 



IEL0351I S EXPRESSION INVALID CR MISSING. 

EXPRESSION INVALID OR MISSING IN 'DELAY* OR 'DISPLAY 1 
STATEMENT. STATEMENT IGNORED. 



Example : 

1. DELAY; 

2. DISPLAY )++; 



Explanation ; If an erroneous expression causes this 
message to be produced, it will also be indicated by a 
separate message. 



IEL0352I S INVALID OPTION [AFTER T x } . T a IGNORED. 

INVALID SPECIFICATION OF OPTION [AFTER T ± l . T a IGNORED. 

Example : 

READ FILE(F) FROM (DATA) ; 
t 
T x 

! I 

L J 

T 2 

IEL0353I E COMMA ASSUMED [AFTER Tl . 

CONSTANT FOUND IN ATTRIBUTE LIST. COMMA ASSUMED [AFTER 
T] - 

Example : 

DCL 1 STRUCT, 

2 FRED (comma missing here) 

3 JOE FLOAT; 



Explanation : This error, and its correction by the 
compiler, can only occur where structure levels are used 
in a DECLARE statement. 



IEL0354I S NO IDENTIFIER [AFTER T*] . T 2 IGNORED. 

•DECLARE' 'DEFAULT' OR 'ALLOCATE ' DOES NOT HAVE AN 
IDENTIFIER [AFTER T x ] - T a IGNORED. 



Example : 



ECL 1 J, 2 + FIXED, 2 F FLOAT; 
1 , 
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IEL0355I S DATA LIST MISSING [AFTER T3 - 

DATA LIST MISSING [AFTER T] . STATEMENT IGNORED. 



Example : 



PUT EDIT SKIP (3) ; 
1 

T 



Explanation : Only data-directed output statements can be 
used without a data list. 



IEL0356I S INVALID IDENTIFIER [AFTER T A ] . T 2 IGNORED. 

INVALID IDENTIFIER [AFTER T ± l IN "FREE 1 STATEMENT. T 2 
IGNORED. 



Example: 



FREE A,B,, (CD) IN (AREA); 

1 

I I 

L J 

T 2 



IEL0357I W TOO FEW PARENTHESES FOR TEXT [AFTER T3 TO BE 'DO' 
SPECIFICATION. 

DATA LIST CONTAINS TOO FEW PARENTHESES FOR TEXT [AFTER T3 
TO EE REPETITIVE SPECIFICATION. ASSUMED TO BE DATA LIST 
ITEMS. 



Example ; 

PUT DATA (A(I) DO I = 3 TC 4); 

should he : 

FUT DATA ((A (I) EO I = 3 TO 4)); 

hut is assumed to he: 

PUT DATA (A(I), DO etc.. 



Explanation : A repetitive specification must leave extra 
brackets for each do-group. For example: 

PUT LIST (((A (I, J) DO I = 1 TO 2) DO J = 3 TO 4)); 



IEL0358I S NO EXPRESSION [AFTER 1 X 1 . T 2 ASSUMED. 

EXPRESSION MISSING FROM FORMAT ITEM [AFTER T*3 • T 2 
ASSUMED 
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Example: 



PUT EDIT (A) (F(3) r X); (T 2 =(D) 

1 

Ti 
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IEL0359I S PREFIX OPTIONS CONFLICT. 



PREFIX OPTIONS CONFLICT. THE DISABLING PREFIX HAS BEEN 
ASSUMED. 



Example ; 

(CONV f OEL,NOCONV) : A=B+C; 



IEL0360I S NO EXPRESSION [AFTER T] . 



EXPRESSION MISSING FROM 'A' FORMAT ITEM [AFTER T] 
•ERROR - CONDITION WILL BE RAISED ON EXECUTION. 



Example : 

GET EDIT <P,Q) (E(3) f A); 



Explanation : On input, an edit-directed A- format iteir 
must specify the number of characters to be read. 

IEL0361I S WRONG NUMBER OF ARGUMENTS [AFTER T*]. l a IGNORED. 

WRONG NUMBER OF ARGUMENTS IN 'FORMAT' ITEM [AFTER Tj.1 . T a 
IGNCREE . 



Example : 

PUT EDIT (A) (F(A,B,3,4), E(3)); 

IEL0362I E COMMA ASSUMED (AFTER T] . 

COMMA ASSUMED [AFTER TJ . 

Example : 

PUT EDIT (A) (E,A X(2)); 



Explanation : A comma is assumed wherever the syntax of a 
statement requires one in order to be valid. 



IEL0363I S PICTURE INVALID [AFTER T] . T IGNORED. 

CHARACTER SPECIFICATION [AFTER T] IN PICTURE IS INVALID IN 
COMPLEX FORMAT ITEM. 1 IGNORED. 



Example : 

PUT EDIT (A) (C(F(3) ,P*99A' )) ; 

IEL036UI E INVALID SYNTAX [AFTER T]. 
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INVALID SYNTAX IN LISTING CONTROL STATEMENT [AFTER Tl 
TEXT IGNORED TO NEXT SEMICOLON. 



Example ; 



%SKIP(1 



A=B; 



IEL0365I S INVALID SYNTAX [AFTER T] . 

INVALID SYNTAX IN 'DECLARE' OR 'DEFAULT* STATEMENT [AFTER 
T] . STATEMENT IGNORED. 



Explanation ; A statement beginning with either "DCL(. 
or ■ DEFAULT (. .." that is not a DECLARE or DEFAULT 
statement has been encountered and cannot be compiled. 



Programmer Response ; Replace the identifier DCL (or 
DECLARE) or DEFAULT with an identifier that is not a 
keyword, and recompile the program. 



IEL0366I W STATEMENT NOT SUPPORTED. 

STATEMENT IS NOT SUFPORTED AND IS IGNORED. 

Example ; 

HALT; 

Explanation : The PL/I statements CHECK, NOCHECK, FLOW, 
NOFLOW, and HALT are not supported by the optimizing 
compiler and are ignored if they appear in the source 
prcgram- 

IEL0367I W INVALID SYNTAX AFTER T. STATEMENT NOT SUPPORTED. 

INVALID SYNTAX AFTER T. STATEMENT IS NOT SUPPORTED AND IS 
IGNORED. 

Example ; 

CHECK (A, 2, B) ; 

Explanation : The PL/I statements CHECK and NOCHECK are 
not recognized by the optimizing compiler. 

IEL0368I W OPTION T NOT SUPPORTED. 

OPTION T NOT SUPPORTED. STATEMENT IGNORED. 

Example ; 

PUT ALL; 
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Explanation : The ALL, FLOW, and SNAP options of the PUT 
statement are not recognized by the optimizing compiler. 



IEL0369I W CONDITION NOT SUPPORTED. 



CONDITION NOT SUPPORTED. 'ON' STATEMENT AND 'ON* UNIT 
IGNORED. 



Example : 



ON ATTENTION EEGIN; 

GOTO LAB; 

END; 



Explanation ; The condition ATTENTION is not recognized by 
the optimizing compiler. 

IEL0370I S DATA LIST INVALID [AFTER T t ] . T a IGNORED. 

INVALID USE OF REPETITIVE SPECIFICATION IN DATA LIST FOR 
'GET 1 STATEMENT [AFTER T x ] . T 2 IGNORED. 



Example : 

GET DATA (A,B(C(I) DO I = 1 TO 3),D); 



Explanation : A repetitive specification is not permitted 
in a GET DATA statement. 



IEL0371I S FORMAT LIST INVALID [AFTER T] . 

FORMAT LIST MISSING OR INVALID AFTER T IN 'FORMAT* 
STATEMENT. 'A' FORMAT ASSUMED. 



IEL0372I W INVALID CARRIAGE CONTROL CHARACTER I. 

CARRIAGE CONTROL CHARACTER T IS INVALID. BLANK ASSUMED 
FCR CHARACTER. 



Explanation : An invalid ANS print control character has 
been specified in a source record associated with the 
given statement. The permissible characters are: blank, 
0, -, +, and 1. 



IEL0373I S PICTURE T EXCEEDS MAXIMUM LENGTH. 

COMPILER RESTRICTION. 'PICTURE' SPECIFICATION EXCEEDS 
MAXIMUM LENGTH. 'PICTURE' SPECIFICATION T IGNORED. 



Example : 



ECL PICTUREA PIC (600) X* , 

PICTUREB PIC (255)9V(2)9*; 



Explanation s The maximum length of a character -string 
PICTURE variable is 511 characters. The maximum length 
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of a numeric PICTURE variable is 256 characters including 
insertion characters. 



IEL0374I I TOO MANY STATEMENTS IN THIS RECORD FOR CORRECT NUMBERING. 

LINE CONTAINS MORE THAN 30 STATEMENTS. NUMBER OF ALL 
FOLLOWING STATEMENTS IN LINE SET TO CONSTANT VALUE. 

Explanation ; The constant value set for statements that 
cannot be individually numbered is N+l. 

IEL0375I E FACTOR NESTING LEVEL EXCEEDS MAXIMUM AFTER T. T IGNORED. 

COMPILER RESTRICTION. MAXIMUM FACTOR DEPTH EXCEEDED AFTER 
T- T IGNORED. 



Explanation : The depth of factorization used in this 
statement has exceeded the maximum permitted by the 
compiler. 



IEL0376I I 'TASK* SPECIFIED. PROCEDURE ASSUMED REENTRANT. 

•TASK' OPTION SPECIFIED. PROCEDURE ASSUMED TO EE 
REENTRANT. 



Explanation ; The optimizing compiler does not generate 
special code for the TASK option, but as tasking 
procedures must normally be reenterable, the REENTRANT 
option is assumed. 



IEL0377I W BLANK ASSUMED [AFTER T] . 

NO ELANK BETWEEN KEYWORD AND FOLLOWING STRING. 
ASSUMED [AFTER T] . 



BLANK 



IEL0378I I 



Example ; 

CO I = 1 TO*3'; 

NCN-INCRHASING RECORD SEQUENCE NUMBER FOLLOWS. 

NON- INCREASING RECORD SEQUENCE NUMEER FOLLOWS THIS 
STATEMENT. LINE NUMBERS MODIFIED. 



Example ; 
Number 

1 P:PROC; 

2 A=B; 



100004 END P; 



Input Sequence Number 
0001 
0002 
0003 
0005 
0004 



Explanation ; The compiler checks the sequence number 
given in the sequence number field of each source 
statement record. If the number is equal to cr less than 
the preceding number, the number in the sequence number 
field is increased by 100000 for the purposes of the 
number used for the GONUMBER option. The sequence number 
quoted in the message refers to the record in which the 
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latest PL/I statement began. Thus, in the example above, 
although the message would refer to record nuirber 4, the 
record number actually quoted in the message would be •2' 



IEL0379I W CONDITION T NOT SUPPORTED. 

CONDITION T NOT SUPPORTED. STATEMENT IGNORED. 

Example : 

SIGNAL ATTENTION; 

•LIKE' IGNORED 



IEL0380I S 



'LIKE' IS INVALID IN ENTRY PARAMETER DESCRIPTOR LIST AND 
IS IGNORED. 



Example : 

ECL TEST1 ENTRY (LIKE TEST) EXTERNAL; 

IEL0381I E INVALID 'INITIAL' ATTRIBUTE [AFTER T] . 

INVALID SPECIFICATION OF 'INITIAL' ATTRIBUTE [AFTER T] 
ATTRIEUTE IGNORED. 



Example :' 



ECL A(tt) FIXED INIT A ( +1, +2, + 3, +X) ; 

> , 

T 



Explanation : Invalid syntax has been detected in the 
specification of a constant, expression, or function 
reference in the INITIAL attribute. Thus, in the above 
example, an invalid arithmetic constant X would be 
diagnosed. 



IEL0382I E INVALID OPTION AFTER 1 X . 



INVALID OPTION AFTER 1 X IN RECORD I/O STATEMENT. OPTION 
T a ASSUMEE. 

Example : 

WRITE FILE (F) FROM (CARD) KEY (NUM) ; 

1 

T 2 = KEY FROM 

Explanation : An inappropriate KEY, KEYTO, or KEYFROM, 
option has been specified for this RECORD I/O statement. 



IEL0383I W LINE NUMBER EXCEEDS N. 

MAXIMUM LINE NUMBER EXCEEDED. LINE NUMBERS OF FOLLOWING 
RE CORES SET TO N. 

Explanation : The NUMEER option has been specified, and 
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the compiler has detected more than 1339 records specify- 
ing non- increasing sequence fields. Consequently, it 
has attempted to generate a line number greater than 
134,000,000, which is the maximum possible value. The 
line number for each of the subsequent records will be set 
to this maximum value. 

Programmer Response : Ensure that the source program has 
increasing sequence fields. 

IEL0384I E ENVIRONMENT OPTION [AFTER T x ] NOT SUPPORTED. 1 2 IGNORED. 

ENVIRONMENT OPTION [AFTER T A ] IS NOT SUPPORTED. 
T a IGNORED. 

Example : 

DCL F FILE RECORD INPUT ENV (MEDIUM (SYSIPI) ) ; 

Explanation : In the example shown, the MEDIUM option is 
an environment option supported by the DOS PL/I Optimizing 
Compiler, and its presence suggests that the compiler has 
been used with this program at some time. The OS PL/I 
Optimizing Compiler does not support MEDIUM as an 
environment option. When using this compiler, it is not 
necessary to specify logical (or physical) device names 
at the time of compilation. 

Programmer Response : Remove the environment option 
denoted by T a in the message, to avoid messages in 
subsequent compilations. Support the function required 
by using the appropriate job control language statements 
if necessary. 



IEL0385I W 



N EXT PA 'END* STATEMENT (S) ASSUMED. 



MULTIPLE CLOSURE OF BLOCK. N EXTRA 'END* STATEMENT (S) 
ASSUMEE. 

Example : 

A:PROC; 
B: BEGIN; 
C:DO; 

/♦PROCESSING*/ 
END A; 

Explanation : END statements have been assumed for all 
open blocks and groups contained within the block being 
closed by the END statement referring to the label. 

Programmer Response : Ensure that you have not 
unintentially omitted any END statements- 



IEL0386I S 



"LEAVE* STATEMENT OUTSIDE , DC* GROUP. 



•LEAVE" STATEMENT NOT CONTAINED IN A 'DO* GROUP IN THE 
CURRENT ELOCK. STATEMENT REPLACED BY A 'NULL' STATEMENT. 

Explanation : The LEAVE statement must refer to a DO-group 
in the immediately enclosing block. 



Example : 
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P:PROC OPTIONS (MAIN) ; 

LEAVE; 

END P; 

or 

P:FROC OFT IONS (MAIN) ; 

DO; 

EEGIN; 

LEAVE; 

END P; 



IEL0387I S NOLL OR INVALID 'WHEN* EXPRESSION. 

NULL OR INVALID 'WHEN' EXPRESSION. BIT CONSTANT 
OF LENGTH AND VALUE ONE ASSUMED. 



IEL0388I £ 



NON-EXECUTABLE UNIT FOLLOWING 'WHEN* OR 'OTHERWISE* 
CLAUSE. 

NON-EXECUTABLE UNIT FOLLOWING 'WHEN" OR •OTHERWISE' 
CLAUSE. UNIT ASSUMED TO BE IN A 'DO' GROUP. 

Example 

SELECT (I) ; 

WHEN(l) DCL J FIXED BIN; 

END; 

Explanation : The unit following a WHEN or 
OTHERWISE clause roust be an executable unit. 



IEL0389I S 'WHEN* OR •OTHERWISE* CLAUSE AFPEARS IN AN INVALID 
POSITION. 

•WHEN 1 OR ■OTHERWISE* CLAUSE APPEARS IN AN INVALID 

POSITION. CLAUSE IGNORED. 



IEL0390I E 



MORE THAN ONE EXECUTABLE UNIT SPECIFIED FOR 'WHEN* OR 
•OTHERWISE' CLAUSE. 

MORE THAN ONE EXECUTABLE UNIT FOLLOWING "WHEN' OR 
•OTHERWISE' CLAUSE. UNITS ASSUMED TO BE CONTAINED IN A 
•DO' GROUP. 

Example 

SELECT (I) ; 
WHEN(l) J=K; 
L=M; 
END; 



IEL0391I S 'ENTRY' STATEMENT SPECIFIED AS EXECUTABLE UNIT OF 'WHEN* 
OR •OTHERWISE* CLAUSE. 

•ENTRY' STATEMENT SPECIFIED AS EXECUTABLE UNIT OF 'WHEN' 
OR •OTHERWISE' CLAUSE. STATEMENT IGNORED. 

IEL0392I S •SELECT' STATEMENT IS NOT FOLLOWED BY 'END* STATEMENT OR 
•WHEN* OR 'OTHERWISE* CLAUSE. 

•SELECT' STATEMENT IS NOT FOLLOWED BY 'END' STATEMENT 



Part I: Coropile-time(IEL) Messages 83 
*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 3 *** 



CR • WHEN ■ OR ' OTHERWISE ' CLAUSE . 



STATEMENT IGNORED. 



IEL0393I S * PROCEDURE' STATEMENT SPECIFIED AS EXECUTABLE UNIT FOR 
•WHEN 1 OR ■OTHERWISE* CLAUSE. 

•PROCEDURE" STATEMENT SPECIFIED AS EXECUTABLE UNIT FOR 
•WHEN' OR •OTHERWISE* CLAUSE. KEYWORD •PROCEDURE' 
REPLACED BY •BEGIN' . 

IEL0394I E LINE NUMBER EXCEEDS 33,000,000. 

MAXIMUM LINE NUMBER EXCEEDED. LINE NUMBERS OF 
FOLLOWING RECORDS SET TO 33,000,000. 

Explanation : The NUMBER option was specified with the 
COUNT or the FLOW option. With these option combinations, 
the maximum number of records specifying nonincreasing 
sequence fields is 329. The compiler has detected more 
than this number of such records. Consequently, the 
compiler attempted to generate a line number greater than 
the maximum allowed for FLOW or COUNT (33,000,000). All 
line numbers for subsequent records are set to 33,000,000. 



IEL0 395I S INVALID CHARACTER AFTER T SET TO A BLANK. 
INVALID CHARACTER AFTER T SET TO A BLANK. 

Explanation ; An invalid character was encountered. This 
character is set to a blank to allow the scan to continue, 
An invalid character is any character not in the PL/I 
character set [a double quote (") , a cent sign (<?) , or an 
exclamation point (I)]. This message may be a failure to 
supply the terminal quote mark for the string being 
scanned. 



IEL039 6I E AN UNSUBSCRIPTED QUALIFIED NAME IS NOT A VALID LABEL. 
T IGNORED. 

Explanation : A label of the form ' identifier . identifier : ' 
has been found; such labels are invalid and are ignored. 

IEL0 39 7I E REDUNDANT PARENTHESES IN DATA LIST IGNORED. 
Example : 

PUT ( ( ( (A) ) ) ) ; 



IEL0398I W 



EXTRANEOUS COMMA IGNORED. 

EXTRANEOUS COMMA DETECTED AFTER "T 1 

Example : DCL I, J,; 
f 

T 



IEL0399I E SEMICOLON ASSUMED (AFTER T) . 
SEMICOLON ASSUMED (AFTER T) . 

Example : IF X THEN GOTO Y ELSE; 

1 

T 



COMMA IGNORED, 
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IEL0400I E RIGHT PARENTHESIS ASSUMED [AFTER T] 
RIGHT PARENTHESIS ASSUMED [AFTER T] 



Example ; 

1. A = B + CC*D; 
1 

T 

2 . EO WHILE (A>E; 
1 

T 



IEL0401I S MORE THAN N QUALIFICATIONS IN NAME BEGINNING T. 

COMPILER RESTRICTION. MORE THAN N QUALIFICATIONS IN NAME 
BEGINNING T. EXCESS QUALIFICATIONS IGNORED. 

Example ; 

A=B1.B2.B3 B64; 

Explanation : The optimizing compiler permits up to 15 
levels of structuring. 

IEL0402I E LABEL VALUE LIST IGNORED. 

LABEL VALUE LIST INVALID FOR 'DEFAULT 1 STATEMENT . LIST 
IGNORED. 

Example ; 

DEFAULT RANGE (L) LAEEL (LAB1,LAB2) ; 
This becomes: 

DEFAULT RANGE (L) LABEI; 



Explanation ; A label value list cannot be used with the 
DEFAULT statement. 



IEL0403I S QUALIFICATION OR SUBSCRIPT ON ENTRY PREFIX IGNORED. 

COMPILER RESTRICTION. QUALIFIED OR SUBSCRIPTED ENTRY 
PREFIX ON 'PROCEDURE 1 OR 'ENTRY' STATEMENT- QUALIFICATION 
OR SUBSCRIPT IGNORED. 



Example ; 

P: EV(3) : ENTRY; 



Explanation ; The optimizing compiler does not permit 
initialization of aggregates of entry variables by the 
appearance of the subscripted or qualified entry variable 
name as a prefix to an ENTRY statement. 
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IEL04 04I E ADJUSTABLE EXTENT INVALID IN •RETURNS'. 

ADJUSTABLE EXTENT INVALID IN 'RETURNS' SPECIFICATION. 
EXTENT IGNORED. 



IEL0405I E 



Example : 

DCL X RETURNS (CHAR (Y) ) ; 

ARGUMENT SPECIFICATION T IGNORED. 

INVALID ARGUMENT SPECIFICATION IN INTERLANGUAGE OPTION. T 
IGNORED . 



IEL0406I E 



Example : 

DCL E ENTRY OPTIONS (COBOL NOMAP(FFED)) 

Explanation ; The argument should te specified as ARGn 
where "n" is the number indicating the position in the 
argument list of the argument to which the interlanguage 
option is to apply. 

PARAMETER SPECIFICATION T IGNORED. 

INVALID PARAMETER SPECIFICATION IN INTERLANGUAGE OPTION. 
T IGNORED. 

Example ; 

E: ENTRY(X) OPTIONS (FORTRAN NCMAP(Y)); 



Explanation : The argument to the NOMAP, NOKAPIN, or 
NOMAPOUT options must be a parameter specified in the same 
PROCEDURE or ENTRY statement. 



ISL0407I E INVALID OPTION T IGNORED. 
INVALID OPTION T IGNORED. 

Example : 

DCL E ENTRY OPTIONS (MAIN) ; 

IEL0408I E CONFLICTING •OPTIONS' SPECIFICATION. T ASSUMED. 

CONFLICTING SPECIFICATION OF INTERLANGUAGE OPTIONS. 
T ASSUMED. 

Example : 

DCL SUB ENTRY OPTIONS (FORTRAN , COBOL); 

Explanation ; Conflicting interlanguage options have been 
found in an options list. The COBOL, FORTRAN, and 
ASSEMBLER options conflict with each other. The last of 
these to be specified is assumed. 
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IEL0409I E LENGTH OR PRECISION NOT IN 'VALUE* CLAUSE. 

STRING OR AREA LENGTH OR PRECISION SPECIFICATION IN 
•DEFAULT' STATEMENT IS NOT IN 'VALUE* CLAUSE. RESULTS OF 
EXECUTION UNDEFINED. 



Example ; 

DEFAULT RANGE (S) CHAR (3); 



Explanation ; String lengths and area sizes should be 
specified inside a VALUE clause. 



IEL0410I E ATTRIBUTE T INVALID FOR •DEFAULT*. 

ATTRIBUTE T INVALID FOR 'DEFAULT* STATEMENT. ATTRIBUTE 
IGNCREE. 



Example ; 



DEFAULT RANGE (A) ENTRY 
(ENTRY ignored 1 } 

DEFAULT RANGE <B) BUFFERED 
(BUFFERED ignored) 



Explanation ; Neither the RETURN, ENTRY, and LIKE 
attributes, nor file description attributes are permitted 
in a DEFAULT statement. 



IEL0411I U ATTRIBUTE FACTORING LEVEL EXCEEDS N. 

COMPILER RESTRICTION. ATTRIBUTE FACTORING LEVEL GREATER 
THAN N. PROCESSING TERMINATED. 



Explanation ; More than 15 levels of attribute 
factorization have been used. 



Programmer Response ; Expand the declaration containing 
the error into separate declarations. 



IEL0412I S MORE THAN 64 PARAMETERS. 

COMPILER RESTRICTION. MORE THAN 64 PARAMETERS. LIST 
TRUNCATED . 



Explanation ; More than 64 parameters have been declared 
in a PROCEDURE or ENTRY statement or in an ENTRY 
attribute. 



IEL0413I E DECLARATION OF D IGNORED. 

DECLARATION OF INTERNAL ENTRY NOT ALLOWED. DECLARATION OF 
D IGNOREE- 
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Example : 



A: PROC; 

DCL B ENTRY RETURNS (FIXED) ; 
B: PROC ENTRY RETURNS (FIXED) ; 



END E; 



END A; 



Explanation ; An internal entry point is declared 
according to its PROCEDURE or ENTRY statement. It cannot 
be declared in the invoking block in a DECLARE statement. 



IEL0414I S NESTED , LIKE f ATTRIBUTE IN DECLARATION OF D. 

•LIKE' ATTRIBUTE IN DECLARATION OF D REFERENCES STRUCTURE 
WHICH CONTAINS 'LIKE*. EXPANSION TRUNCATED AT LATTER 
S LIKE". 



Example ; 

ECL 1 A, 2 B, 2 C LIKE A, 2 D, 3 B; 
This becomes: 

DCL 1 A, 2 B, 2 C, 3 B, 3 C, 

(expansion truncated here) 

2 E, 3 B; 



IEL0415I S 'LIKE' REFERENCE FOR D IS NOT A STRUCTURE. 

"LIKE 1 REFERENCE IN DECLARATION OF D NOT A STRUCTURE. 
•LIKE' ATTRIBUTE IGNORED. 



IEL0416I S 



Example ; 

ECL A, 1 B LIKE A; 

•LIKE" REFERENCE FOP D IS AMBIGUOUS. 

AMBIGUOUS 'LIKE* REFERENCE IN DECLARATION OF D. UNDEFINED 
SELECTION OF POSSIBILITIES MADE. 



Example ; 



ECL 1 A, 2 E, 3 C, H D, 2 E, 3 C; 
DCL 1 X LIKE (A.C) ; 



Explanation ; An ambiguity has arisen through an 
incomplete qualification, and an undefined selection of 
one of the possible resolutions is made. 



IEL0417I S 



•LIKE' ATTRIBUTE FOR E REFERS TO INVALID STRUCTURE. 
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•LIKE' ATTRIBUTE IN DECLARATION OF D REFERENCES STRUCTURE 
WHICH IS UNDECLARED OR CONTAINS •LIKE* ATTRIBUTE. FORMER 
'LIKE* ATTRIBUTE IGNORED. 



IEL0418I U 



Example ; 

1. X: PROC; DCL 1 A LIKE E; END; 

2. DCL 1 A, 2 B LIKE C; DCL 1 C, 2 D LIKE E; 

TOO MANY "DEFAULT* SPECIFICATIONS AND 'LIKE* ATTRIBUTES. 

COMPILER RESTRICTION. TOO MANY DEFAULT SPECIFICATIONS AND 
•LIKE" ATTRIBUTES IN ONE BLOCK. PROCESSING TERMINATED. 



Explanation : Details of default specification within the 
current scope, and LIKE attributes not yet resolved for 
the current blocks, are held in a directory. The total 
number of default specifications and unresolved LIKE 
attributes that can be handled depends on the environment 
in which the compiler is working; however, the directory 
should hold a minimum of 125 entries. 

Programmer Response : Reduce the number of active default 
specifications and unresolved LIKE declarations to about 
100 by expanding LIKE declarations and merging defaults. 

IEL0419I S INVALID ATTRIBUTE SPECIFICATION IN •VALUE 1 CLAUSE. 

CONFLICTING OR REPEATED OR INVALID ATTRIBUTE SPECIFICATION 
IN 'VALUE" CLAUSE. RESULTS OF EXECUTION UNDEFINED. 



Example ; 



DEFAULT RANGE (*) VALUE (FIXED 
CHAR(l), (BINC17), FLOAT (3 )) DEC) ; 



Explanation : When an illegal combination of attributes 
appears (after any def actor ing of attributes has been 
performed) the combination has no effect. Individual 
attributes may still appear, however, and have effect in 
other combinations- In the above example, the attribute 
combinations FIXED CHAR(l) and DEC BIN (17) will be 
ignored, whereas the combination DEC FLOAT (3) will be 
accepted. 



IEL0420I E PRECISION OR EXTENT MISSING IN 'VALUE* CLAUSE. 

PRECISION OR EXTENT SPECIFICATION MISSING FOR ATTRIBUTE IN 
•VALUE" CLAUSE. ATTRIBUTE IGNORED. 



Example : 

DEFAULT RANGE (*) VALUE (CHAR, FIXED BIN); 



Explanation : The precision or extent specification must 
be included in an attribute specification in a VALUE 
clause. 



IEL0421I S 



MULTIPLE DECLARATION OF D. 
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MULTIPLE DECLARATION OF D IN SAME STRUCTURE. 

Example : 

DCL 1 A, 2 B, 2 C, 2 B; 

Explanation ; For fully qualified references to the 
multiply-defined structure number , the last declaration 
will be taken. Incompletely qualified references will be 
further diagnosed as being ambiguous. 

IEL0422I S MULTIPLE DECLARATION OF D IGNORED. 

MULTIPLE DECLARATION OF D. DECLARATION IGNORED. 

Explanation : For a multiply-declared item, all 
declarations but one are ignored. 



IEL0423I S 



Example : 

1. DCL A, A; 

2. ECL A; 
DCL A; 

MAJOR STRUCTURE LEVEL NUMBER ASSUMED TO BE 1. 

MAJOR STRUCTURE LEVEL NUMBER NOT ONE. NUMBER REPLACED BY 
ONE. 



IEL0424I S 



Example : 

ECL 2 G, 3 H; 

LOGICAL LEVEL NUMBER OF MEMBER REDUCED TO N. 

COMPILER RESTRICTION. LOGICAL LEVEL NUMBER OF STRUCTURE 
MEMBER TOO LARGE. REDUCED TO N. 



IEL0425I S 



Example : 

DCL 1 A, 370 B...; 

DECLARED LEVEL NUMBER OF MEMBER REDUCED TON. 

COMPILER RESTRICTION. DECLARED LEVEL NUMBER OF STRUCTURE 
MEMEER TOO LARGE. REDUCED TO N. 



IEL0426I E 



Example : 

DCL 1 A, 300 B; 

INVALID REPETITION OF 1. 

INVALID REPETITION OF ATTRIBUTE T. SECOND SPECIFICATION 
IGNORED. 
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Example : 



IEL0429I E 



DCL (X,¥) CHAR(l) CHAR(2); 
I I 



IEL0U27I E ATTRIBUTE T FOR D IGNORED. 

ATTRIBUTE T IN DECLARATION OF D IGNORED. 

Example : 

ECL X FIXED FLOAT; 
t 
T 

Explanation : A conflicting, invalid, or repeated 
attribute in a declaration will be ignored. The 
particular attribute that is ignored is the one that also 
conflicts with the declaration of the identifier after 
default attributes have been applied, or that is invalid 
or repeated. 

IEL0428I E AMBIGUOUS •DEFAULT' FOR D. T IGNORED. 

AMEIGUOUS DEFAULT SPECIFICATION IN DECLARATION OF D. 
ATTRIBUTE T IGNORED. 



Example : 



DEFAULT RANGE (X) FLOAT; 
DEFAULT RANGE (V:Z) FIXED; 
DCL X; 



'DEFAULT' AMBIGUOUS FOR RANGE T 



T IGNORED. 



'DEFAULT' SELECTION IS AMBIGUOUS FOR ANY CONTEXTUAL OR 
IMPLICIT DECLARATION IN RANGE T. ATTRIEUTE T IGNORED. 

Example : 

DEFAULT RANGE (J:R) FIXED; 
DEFAULT RANGE (H:N) FLOAT; 

An ambiguity exists for the range (J:N). 

Explanation : The default ranges given in two cr more 
range specifications should not overlap. The range given 
in the message is the extent of the ambiguous range. This 
message is produced even when there are no implicit 
declarations within the ambiguous range. 



IEL0430I I NO 'MAIN' OPTION ON PROCEDURE. 

NO 'MAIN' OPTION CN EXTERNAL PROCEDURE. 

Example : 

P:PROC; 

Explanation : An external procedure without the MAIN 
option cannot be executed unless link- edited with another 
external procedure with the MAIN option. 
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IEL0431I S PICTURE CHARACTER AFTER T REPLACED BY T- 

INVALID • PICTURE' SPECIFICATION. CHARACTER [AFTER T] 
REPLACED BY T. 

Example ; 

ECL P PIC* 59+' ; 

is assumed to be: 

DCL P PIC 599" ,- 



Explanation : Depending on circumstances, an invalid 
picture specification character is replaced either by • 9* 
when valid or by " . ' . 



IEL0432I S 



IEL0U33I S 



SUBFIELD OF T HAS NO DIGIT POSITIONS. 

SUEFIELE OF ' PICTURE* T HAS NO DIGIT POSITIONS 
OF EXECUTION ARE UNDEFINED. 



RESULTS 



Example : 

ECL P PIC^CR* ; 

PRECISION OF SUBFIELD OF T EXCEEDS N. 

COMPILER RESTRICTION. PRECISION OF SUBFIELD OF PICTURE T 
EXCEEDS N. PICTURE SPECIFICATION IGNORED. 

Example : 

1. PIC • (16)9' 

2. PIC •9E999* 



IEL0434I S 



Explanation : The maximum precision of a nuireric picture 
is 15 for the mantissa and 2 for the exponent. 

T TRUNCATED AT INVALID 'F*. 

PICTURE T TRUNCATED AT INVALID , F t SPECIFICATION. 



IEL0435I S 



Example : 

DCL P PIC*9E9F(3) ' ; 
is assumed to be: 
ECL P PIC "9E9 f ; 

INVALID PICTURE T. 

INVALID PICTURE T. PICTURE TEXT FOLLOWING 'F' 
SPECIFICATION IGNORED. 

Example : 

DCL P PIC , 99V9F(-3)9' ; 
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is assumed to be: 

DCL P PIC "99V9 F(-3)"; 

IEL0436I E INVALID PICTURE. T REPLACED BY "X" . 

INVALID CHARACTER PICTURE SPECIFICATION. T REPLACED BY 
'X". 



IEL0437I E 



Example ; 

PIC "9XR" 

is assumed to be: 

PIC "9XX" 

PRECISION OF D REDUCED TO N. 

COMPILER RESTRICTION. PRECISION OF D TOO LARGE. N 
ASSUMED FOR PRECISION. 



Example ; 



DCL B BINARY (32,0), 
D DECC17); 



Explanation : The maximum precisions for arithmetic data 
types are given in the language reference manual for this 
compiler. 



IEL0438I E INVALID "RANGE" T IGNORED. 

INVALID "RANGE" SPECIFICATION T. SPECIFICATION IGNORED. 



IEL043 9I E 



Example ; 

DEFAULT RANGE (C:B) BIN; 

ZEPO VALUE ASSUMED FOR SCALE FACTOR. 

COMPILER RESTRICTION. SCALE FACTOR IS OUTSIDE VALID 
RANGE. ZERO VALUE ASSUMED. 



IEL0440I E 



Example ; 

DCL F FIXED (6,-200); 

T WITHIN "RETURNS" IGNORED. 

COMPILER RESTRICTION. ATTRIBUTE T INVALID IN 'RETURNS" 
SPECIFICATION. ATTRIBUTE IGNORED. 

Example : 

1. DCL X RETURNS (RETURNS (FIXED) ) ; 
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2- CCL Y RETURNS < ENTRY); 



Explanation ; & function procedure cannot return a value 
that is an entry name. 



IEL0441I S D HAS BOUND GREATER THAN N. 



COMPILER RESTRICTION. D DECLARED WITH ARRAY BOUND GREATER 
THAN N. N ASSUMED FOR BOUND. 



Example ; 

DCL A(10;32768); 

Ex planation ; An array bound cannot be greater than 32767 



IEL0442I S D HAS BOUND LESS THAN N. 



COMPILER RESTRICTION. D DECLARED WITH ARRAY BOUND LESS 
THAN N. N ASSUMED FOR BOUND. 



Example ; 

DCL A(-32769;10) ; 

Explanation ; An array bound cannot be less than -32768. 

IEL0443I S LOWER BOUND N OF D GREATER THAN HIGHER BOUND. 

LOWER BOUND N GREATER THAN HIGHER EOUND IN DECLARATION OF 
D. BOUNDS INTERCHANGED. 

Example ; 

DCL A(5;2); 

Explanation ; The lower bound cf an array dimension must 
be declared to be numerically lower than the higher bound. 

IEL0444I S D HAS MORE THAN N DIMENSIONS. 

COMPILER RESTRICTION. D DECLARED WITH NUMBER OF 
DIMENSIONS GREATER THAN N. NUMBER OF DIMENSIONS REDUCED. 

Example ; 

DCL A( 1,2, 3,4, 5,6, 7, 8, 9 ,10 ,11 ,12, 13 ,14 ,15, 16); 



Ex planation s An array cannot be declared with more than 
15 dimensions. 



IEL0445I S T NOT AN ENTRY NAME. IGNORED. 

T IN •GENERIC 1 SPECIFICATION IS NOT AN ENTRY NAME AND IS 
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IGNORED . 



Example ; 

DCL El ENTRY; 

DCL E2 FILE VARIABLE; 

DCL F GENERIC 

(El WHEN (FIXEE), E2 WHEN (FLOAT) ) ; 

Explanation ; Only names of entry points can begin in the 
declaration of a GENERIC entry name. 



IEL0446I S REFERENCE TO T IS AMBIGUOUS. 

REFERENCE TO T IN •GENERIC* SPECIFICATION IS AMBIGUOUS. 
UNDEFINED SELECTION MAEE. 



Example ; 



DCL F GENERIC 

(El WHEN (FIXED), E2 WHEN (FLOAT) ), 
E2 ENTRY, 
IX, 2 El ENTRY, 
Y LIKE X; 



Explanation ; An entry expression in the declaration of a 
GENERIC entry name roust be an unambiguous reference to an 
entry constant or variable. 



IEL0UU7I E QUALIFICATION OF ATTRIBUTE T FCR D INVALID. 

QUALIFICATION OF ATTRIBUTE T SPECIFIED FOR MEMEER D IN 
•GENERIC SPECIFICATION IS INVALID. QUALIFICATION 
IGNORED. 



Example ; 



DCL G GENERIC (El WHEN (BIT), 
E2 WHEN(CHARO))); 



Explanation ; Details of the attributes permitted in a 
generic descriptor list are given in the language 
reference manual for this compiler. 



IEL0448I S ATTRIEUTE T FOR D INVALID. 

INVALID ATTRIBUTE T FOR MEMBER D IN • GENERIC • 
SPECIFICATION. ATTRIBUTE IGNORED. 



Example ; 

DCL F GENERIC 

(El WHEN (FIXED), 

E2 WHEN (FLOAT,BASED)); 



Explanation ; Only the following attributes can be used in 
a generic descriptor: ALIGNED, AREA, base, BIT, 
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CHARACTER, ENTRY, EVENT, FILE, LABEL, mode, OFFSET, 
PICTURE 'picture specifications', POINTER, precision, 
scale, UNALIGNED, and VARYING. String lengths, area 
sizes, and label lists are not permitted. 



IEL0449I S T CONFLICTS WITH PREVIOUS ATTRIBUTES FOR D. 

ATTRIBUTE T CONFLICTS WITH PREVIOUS ATTRIBUTES OF MEMBER D 
IN •GENERIC SPECIFICATION. ATTRIBUTE IGNORED. 



Example ; 



ECL F GENERIC 

(El WHEN (FIXED) ,E2 WHEN(FLOAT FIXED)); 



Explanation ; When the attributes in a generic descriptor 
conflict, the second of the conflicting attributes is 
ignored. 

IEL0450I E T IN VALUE LIST OF E NOT A LABEL CONSTANT. 

T IN LABEL VALUE LIST OF LABEL VARIABLE D IS NOT A LABEL 
CONSTANT AND IS IGNORED. 



Example: 



P: PROC; 

DCL L LABEL (L1,I2,L3); 
LI: ; 
L2: ; 

END L3 (is not a label) 



Explanation ; A label constant given in a label list 
should appear in the block within the scope cf the label 
list. 



IEL0U51I S ADJUSTABLE EXTENTS FOR D INVALID WITH * STATIC * . 

ADJUSTABLE EXTENTS INVALID WITH 'STATIC STORAGE CLASS IN 
DECLARATION OF D. N ASSUMED FCR EXTENT. 



Example ; 

ECL A (4:N) STATIC; 
DCL C CHAR(N) STATIC; 



Explanation ; Static variables cannot have an adjustable 
bound, extent, or length. 



IEL0452I S ADJUSTABLE EXTENT INVALID FOR PARAMETER D. 

ADJUSTABLE EXTENTS INVALID WITH 'PARAMETER' STORAGE CLASS 
IN DECLARATION OF D. »*' ASSUMED FOR EXTENT- 



Example ; 

X: PROC (P) ; 

96 



*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT , REFER TO PAGE 3 *** 



DCL P(Y>; (becomes P(*>) 

END; 



Explanation : A parameter cannot have an adjustable bound , 
extent, or length, but it can assume that of its argument 
if specified as '**. 



IEL0453I S ADJUSTABLE EXTENT INVALID FCR BASED D. 

ADJUSTABLE EXTENT INVALID WITH ' BASED* STORAGE CLASS IN 
DECLARATION OF D. N ASSUMED FCR EXTENT. 



Example ; 

1. DCL A (I: 8) BASED; 

in this case I is assumed to be 1. 

2. DCL B(4:J) BASED; 

in this case J is assumed to be 10. 



Explanation : Unless the REFER option is specified, 
a based area cannot have an adjustable extent, and a based 
string cannot have an adjustable length. If specified, an 
adjustable lower bound is assumed to be 1, an adjustable 
upper bound is assumed to be 10, an adjustable string 
length is assumed to be 1, and an adjustable area extent 
is assumed to be 1000. 



IEL0454I S '** EXTENT INVALID FOR D NOT 'CONTROLLED' OR 'PARAMETER*. 

'*' EXTENT SPECIFIED IN DECLARATION OF D BUT NOT 
'CONTROLLED' OR 'PARAMETER'. N ASSUMED FOR EXTENT. 



Example : 

ECL A (*) STATIC; 



Explanation s An '*' bound, extent, or length can only be 
used to declare an adjustable bound, extent, cr length for 
a controlled variable or a parameter. 



IEL0455I S 'REFER' EXTENT INVALID FOR NON EASED D. 

'REFER' EXTENT SPECIFIED IN DECLARATION OF D BUT NOT IN 
'BASED' STRUCTURE. N ASSUMED FCR EXTENT. 



Example : 

1. DCL 1 A, 2 B, 2 C(X REFER (B): 8); 

2. DCL 1 A, 2 B, 2 C(4:X REFER (B)); 



Explanation : The REFER option can only be used in the 
declaration of a based structure that contains an 
adjustable array dimension. If REFER is used in this way 
for the lower bound, 1 is assumed; if it is used for the 
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upper bound, 10 is assumed. 



IEL0456I S AMBIGUOUS •REFER* ITEM T FOR D. 

"REFER" ITEM T FOR EXTENT IN DECLARATION OF D IS 
AMEIGUOUS. UNDEFINED SELECTION MACE. 



IEL0457 W 



Example ; 

DCL 1 A BASED, 

2 B , 2 C , 3 B, 

3 D (X REFER B:10) ; 

The reference B is ambiguous. 

'REFER' T FOR D MAY BE INVALID. 

IF THE STRUCTURE CONTAINS PADDING USE OF 'REFER* T FOR 
EXTENT OF D WILL BE INVALID AND RESULTS OF EXECUTION 
UNDEFINED. 



Example ; 



DCL 1 A BASED, 

2 B FIXED BIN, 

3 D FIXED DEC, 

3 E (X REFER(D)) FLOAT DEC, 

3 F FIXED DEC; 



Explanation ; Although structure A contains padding, this 
message is pictured for structures that, when mapped, do 
not contain padding. 



IEL0458I S 'REFER' T FOR D NOT PREVIOUS EASE ELEMENT. 

•REFER' ITEM T FOR EXTENT IN DECLARATION OF D IS NOT A 
PREVIOUS SCALAR BASE ELEMENT IN THE SAME STRUCTURE. N 
ASSUMED FOR EXTENT. 



IEL0459I I 



Example ; 

1. DCL 1 A BASED, 2 B(X REFER (C) : 10) ,2 C; 
-base element C follows the REFER item. 

2. DCL 1 A BASED, 2 B, 3 C(X REFER (B):10); 
-B is not a base element in structure A. 

3. DCL 1 A, 2 B, 3 C; 

DCL 1 D BASED, 2 E(X REFER(C) : 10) ; 

-C is not a base element in structure D. 

D TREATED AS NOT * CONNECTED*. 

ARRAY PARAMETER D TREATED AS NOT 'CONNECTED'. 
OPTIMIZATION MAY BE INHIBITED. 
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Example : 



P: PROC(X,Y) ; 

DCL (X,Y CONNECTED, Z) (10,10); 

1. Z = X; (compiled as a do-group) 

Z = Y; (coir pi led as a single move instruction) 

2. V = X(6,3); (compiled as subscript calculation 

to obtain offset) 
V = Y(6,3); (offset is calculated at 

compile-time, no further 
calculation required) 



Explanation ; If the attribute CONNECTED is added to the 
declaration of the array, the subscript calculations viill 
be optimized as shown. 



ISL0460I E DEFAULT "BUILT IN' OR •GENERIC 1 FOR D IGNORED. 

DEFAULT ATTRIBUTE •BUILTIN' OR •GENERIC 1 SPECIFIED FOR D 
CONFLICTS WITH USE OF IDENTIFIER IN IMPLICIT DECLARATION. 
ATTRIBUTE IGNORED. 



Example : 



DEFAULT RANGE (P) BUILTIN CHAR STATIC; 
DECLARE A CHAR DEFINED (P); 



IEL0461I S AGGREGATES INVALID IN GENERIC DESCRIPTOR LIST FOR T. 

COMPILER RESTRICTION. AGGREGATES INVALID IN DESCRIPTOR 
LIST FOR MEMBER T IN •GENERIC 1 SPECIFICATION. MEMBER 
IGNORED. 



Example : 



DCL G GENERIC (El WHEN(,(*)), 
E2 WHEN (FIXED, FLOAT), 
E3 WHEN(, 1,2,2); 

(E2 is a valid member. El and E3 are ignored) 



IEL0462I S INITIALIZATION INVALID FOR STATIC LABEL D. 

INITIALIZATION INVALID FOR •STATIC' ENTRY VARIABLE D. 
INITIALIZATION IGNORED. 



Example : 



DCL EV ENTRY VARIABLE STATIC INIT(EVl) ; 



IEL0463I S ENTRY NAME T INVALID IN •GENERIC* SPECIFICATION. 

COMPILER RESTRICTION. 'BASED • •DEFINED' OR SUBSCRIPTED 
ENTRY NAME T INVALID IN 'GENERIC* SPECIFICATION. ENTRY 
NAME IGNORED. 



Example ; 



DCL El ENTRY, E2 BASED; 
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DCL G GENERIC (El WHEN (FIXED) E2 WHEN (FLOAT)); 
(E2 ignored) 

IEL0464I S D IS NOT "BASED*. 

D IN •LOCATE' STATEMENT NOT 'EASED*. STATEMENT IGNORED. 



Example : Ps PROC; 

LOCATE FRED FILE(F); 
END P; 

FRED (is not declared based) 



IEL0465I S D IS NOT LEVEL ONE. 

D IN "ALLOCATE' STATEMENT NOT LEVEL ONE. THIS AND AN* 
FOLLOWING ITEMS IGNORED. 



Example : 



DCL (A,l X) CTL, 2(Y,Z) 
ALLOCATE A,Y r X; 

(Items Y and X are ignored) 



Explanation : A minor structure cannot be allocated 
independently of its containing level 1 structure. 



IEL0466I S D IS NOT "BASED" OR 'CONTROLLED*. 

D IN "ALLOCATE" STATEMENT NOT 'BASED* OR 'CONTROLLED* 
THIS AND ANY FOLLOWING ITEMS IGNORED. 



Example : 

ECL X, (Y,Z) CTL; 
ALLOCATE Y,X,Z; 

(X and Z will not be allocated) 



Explanation : Only based or controlled variables can be 
allocated storage by means of the ALLOCATE statement. 



IEL0467I E FINAL MEMBERS MISSING FROM STRUCTURE. 

FINAL MEMBERS MISSING FROM STRUCTURE SPECIFICATION IN 
"ALLOCATE" STATEMENT. DECLARATION USED FOR MISSING 
MEMBERS. 



Example s 

DCL 1 X CTL, 2 (Y,Z) CHARO); 
ALLOCATE 1 X, 2 Y CHAR (4); 



Explanation : The member 2 Z is assumed to be included in 
the ALLOCATE statement with the declared attributes 
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CHAR (3). 

IEL0468I E LEVEL NUMBER PRECEDING D IGNORED. 
LEVEL NUKBER PRECEDING D IGNORED. 

Example : 



DCL X CTL 
ALLOCATE 1 X; 

(the level *1* is ignored) 



Explanation ; A level number is only required in an 
ALLOCATE statement for a structure where members of that 
structure are specified explicitly in the statement. 



IEL0469I E DIMENSIONS ATTRIBUTE MISSING FOR D. 

DIMENSIONS ATTRIBUTE MISSING FOR STRUCTURE MEMBER D IN 
•ALLOCATE' STATEMENT. DECLARED DIMENSIONS ASSUMED. 



Example : 

DCL 1 X CTL, 2 YC10) , 2 Z; 
ALLOCATE 1 X,2 Y, 2 Z; 



Explanation ; Except for level-1 identifiers, those 
identifiers declared with dimensions must, when given in 
an ALLOCATE statement, be specified with dimensions. 



IEL0470I S WRONG NUMBER OF DIMENSIONS FOR D. 

WRONG NUMBER OF DIMENSIONS FOR D IN • ALLOCATE • STATEMENT. 
RESULTS OF EXECUTION UNDEEINED. 



Example: 



DCL X(10) CTL; 
ALLOCATE X(5,2) ; 



Explanation ; An identifier declared with dimensions roust, 
when given in an ALLOCATE statement, be specified with the 
same number of dimensions, although the bounds cf a 
particular dimension may differ from those given in the 
declaration. 



IEL0471I S CONFLICTING ATTRIBUTE 1 FOR D IGNORED. 

CONFLICTING ATTRIBUTE T FOR D IN •ALLOCATE' STATEMENT- 
ATTRIBUTE IGNORED. 



Example : 

DCL X CBARC6) CTL; 
ALLOCATE X BIT (6); 
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Explanation : The attribute of an identifier given in an 
ALLOCATE statement should not conflict with the attribute 
given in the declaration of the identifier. Note that 
string lengths and the upper and lower bounds cf 
dimensions can differ between the declaration and the 
ALLOCATE statement. 



IEL0472I E INVALID ATTRIBUTE T FOB D IGNORED. 

INVALID ATTRIBUTE T FOR D IN •ALLOCATE* STATEMENT. 
ATTRIBUTE IGNORED. 



Example ; 

ALLOCATE C ALIGNED; 



Explanation : Only the following attributes can be used in 
an ALLOCATE statement: BIT» CHARACTER, AREA, and INITIAL. 



IEL0473I E LEVEL NUMBER FOR T REPLACED BY ONE. 

INVALID LEVEL NUMBER SPECIFIED FOR T. LEVEL ONE ASSUMED. 

Example : 

ALLOCATE 2 X; 



Explanation : The first identifier in an ALLOCATE 
statement must be a level 1 identifier. 



IEL0474I E STRUCTURING ERROR FOLLOWING D. 

ERROR IN SPECIFICATION OF STRUCTURING FOLLOWING D. 
DECLARED STRUCTURING ASSUMED FOR FINAL MEMBERS OF 
STRUCTURE. 



Example : 



DCL (IX, 2 Y, 2 Z, A) CTL; 
ALLOCATE IX, 2 Y, A; 

(structure member Z is assumed to be included in the 
ALLOCATE statement) 



IEL0475I E 



Explanation : If any members of a structure appear in an 
ALLOCATE statement, all the members of that structure must 
appear. 

ATTRIBUTES FOR * BASED • VARIABLE D IGNORED. 

ATTRIBUTES FOR BASED VARIABLE D INVALID ON • ALLOCATE • 
STATEMENT- ATTRIBUTES IGNORED. 



Example : 



ECL X BASED (P); 
ALLOCATE X INIT (3) ; 
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INITO) ignored 



Explanation : Based variables cannot be given attributes 
when allocated. 



IEL0476I E 'SET' OR "IN* INVALID FOR 'CONTROLLED 1 D. 

'SET* OR 'IN' OPTION INVAIID IN 'ALLOCATE' STATEMENT FOR 
•CONTROLLED" VARIABLE D. OPTION IGNORED. 



IEL0478I W 



Example : 



DCL X CTL f Y BASED; 
ALLOCATE X IN (A); (invalid) 
ALLOCATE Y IN (A) ; (valid) 



Explanation : The object of the SET or IN options roust be 
a based variable. 



IEL0U77I E 'CHAR 1 •BIT' OR 'AREA* WITHOUT EXTEN1. 

" CHARACTER' OR 'BIT' OR 'AREA* SPECIFIED WITHOUT EXTENT IN 
•ALLOCATE 1 STATEMENT. ATTRIBUTE IGNORED. 



Example : 



ECL X CHAR (3) CTL; 
ALLOCATE X CHAR; 
•ALLOCATE X;' (assumed) 



D HAS STRING OVERLAY DEFINING. 



D HAS STRING OVERLAY DEFINING AND MAY BE INCOMPATIBLE 
WITH THE PL/I F COMPILER. 



Example : 



DCL X(10) PICTUEE '9999' , 

A (10) PICTURE '9' DEFINED X; 



Explanation : In the above example the F compiler would 
have given correspondence defining but the optimizing 
compiler will give string overlay defining. 



IEL047 9I S STRING OR AREA SIZE REDUCED TO N. 

COMPILER RESTRICTION. CHAR OR BIT OR GRAPHIC OR AREA 
SIZE REDUCED TO COMPILER MAXIMUM. 



Example ; 



ECL A AREA (20000000) , 
B BIT (40000), 
C CHAR(UOOOO) ; 



Explanation : The maximum sizes permitted by this compiler 
are 16777216 for an area, 32767 for character and bit 
strings, and 16383 for graphic strings. Even so, these 
sizes may exceed the available main storage when the 
program is executed. 
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IEL0480I S D DEFINED ON •DEFINED" OR 'BASED*. 

D IS DECLARED AS 'DEFINED' ON A BASE WHICH ALSO HAS THE 
•DEFINED" OR "BASED* ATTRIBUTE. 'DEFINED* ATTRIBUTE 
IGNCREE. 



Example : 

DCL A DEFINED B r B DEFINED C; 

IEL0481I S D *ISUB' "DEFINED' CN CROSS-SECTION. 

D IS DECLARED AS 'DEFINED' WITH AN 'ISUB* VARIABLE ON THE 
CROSS-SECTION OF A BASE. 'DEFINED' ATTRIBUTE IGNORED. 

Example : 

DCL D(G) DEFINED B (*,1SUB); 

IEL0482I S D 'DEFINED" WITH WRONG NUMBER CF SUESCRIPTS. 

D IS DECLARED AS "DEFINED* WITH AN * ISUB * VARIABLE ON A 
BASE WITH THE WRONG NUMBER OF SUBSCRIPTS. 'DEFINED' 
ATTRIBUTE IGNORED. 



Example : 



ECL B (10,10), 

D(6) DEFINED B(lSUB); 



IEL0483I S D 'DEFINED" WITH "ISUB' AND 'POSITION' ATTRIBUTE. 

D IS DECLARED AS "DEFINED" WITH AN 'ISUE' VARIABLE AND HAS 
'POSITION' ATTRIBUTE. 'DEFINED' ATTRIBUTE IGNORED. 



Example : 



DCL B (10,10) , 

E (6) DEFINED E(1SUB, 6) POS(3); 



IEL0484I S MAPPING OF DEFINED ITEM D CONFLICTS WITH BASE. 

MAPPING OF ELEMENT D OF ISUB-DEFINED ARRAY CONFLICTS WITH 
THAT OF BASE. * DEFINED* ATTRIBUTE IGNORED. 



Example : 



ECL 1 B(10), 2 C, 3 D; 

DCL 1 X(5,2) DEFINED B (1SUE+2SUB) , 

2 Y, 

2 Z; 



IEL0U85I E 



CONFLICT BETWEEN DEFINED ITEM D AND BASE ATTRIBUTES 
IGNCREE. 
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ATTRIBUTES OF ITEM D •DEFINED' WITH AN 'ISUB' VARIABLE 
CONFLICT WITH THOSE OF BASE. CONFLICT IGNORED. 



Example : 



CCL 1 B (10) , 2 C FIXED(31,0), 
2 D FLOAT, 
1 D(5,2) DEFINED B (1SUE+2SUB) , 
2 E POINTER, 
2 F OFFSET; 



IEL04 86I E SIMPLE DEFINING ASSUMED AS ATTRIBUTES OF D CONFLICT WITH 
BASE. 

ATTRIBUTES OF 'DEFINED' ITEM D CONFLICT WITH THOSE OF 
BASE. SIMPLE DEFINING ASSUMED. 



Example : 



DCL B POINTER, 

A FIXED BINARY (31,0) DEFINED E; 



Explanation : Simple defining is assumed only if the t\*o 
items have matching size,, alignment, and dimensionality. 
String lengths or bounds are ignored. 

IEL0487I S D 'DEFINED" ON UNCONNECTED AGGREGATE. 

D IS STRING OVERLAY 'DEFINED* ON AN AGGREGATE WHICH IS NOT 
'CONNECTED'- 'DEFINED' ATTRIBUTE IGNORED. 



Example : 

DCL 1 B(10) , 

2 C CHAR (2) , 

2 F, 

A CHAR (20) DEFINED C; 



Explanation : An aggregate used as the base in string 
overlay defining must occupy a contiguous area cf storage. 



IEL0488I S ATTRIBUTES OF 'DEFINED' ITEM D CONFLICT WITH BASE. 

ATTRIBUTES OF 'DEFINED* ITEM D CONFLICT WITH THOSE OF 
BASE. "DEFINED* ATTRIBUTE IGNORED. 



Example : 



DCL OFFSET DEFINED B, 
1 B, 2 (C,D) CHAR; 



Explanation : The mapping of the defined and base items 
differ and the defined item is a level 1 offset. 



IEL0489I S 'POSITION" VALUE FOR E LESS THAN ONE OR EXCEEDS N. 

COMPILER RESTRICTION. D IS DECLARED WITH 'POSITION' VALUE 
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LESS THAN ONE OR GREATER THAN N. 'POSITION' ATTRIBUTE 
IGNORED. 



Example ; 



ECL B CHAR, 

A CHAR DEFINED B POSITION (32768 ) ; 



IEL0490I E INVALID 'DEFINED' FOR D. 



INVALID USE OF 'DEFINED' IN DECLARATION OF D. COMPILER 
WILL ATTEMPT TO ASSUME STRING OVERLAY DEFINING. 



Example ; 



DCL B CHAR (5), 

D BIT (80) DEF(B); 



Explanation s If the defined and base items do not match, 
both must be non- varying, unaligned and either picture or 
character or both bit strings. If these rules are 
infringed, the defining will be accepted provided that the 
base item occupies contiguous storage. 



IEL0491I S 



'DEFINED' BASE FOR D IS AMBIGUOUS. 



BASE REFERENCE OF •DEFINED* ATTRIBUTE IN DECLARATION OF D 
IS AMBIGUOUS. UNDEFINED SELECTION MADE. 



Examp le; 



DCL 1 A, 2 B, 3 B, 
D DEFINED E; 

(the identifier B is ambiguous) 



IEL04 92I S 



•DEFINED' BASE FOR D IS NOT ACCEPTABLE. 



D IS 'DEFINED' ON A BASE WHICH IS NOT ACCEPTABLE 
'DEFINED' ATTRIBUTE IGNORED. 



Example : 

1 . P : PROC ; 

DCL X DEF P; 
END P; 



2. P: PROC; 

DCL B; 

DCL A DEF B(100) 



IELCW93I W 



SIMPLE DEFINING APPLIES FOR D. 



SIMPLE DEFINING APPLIES FOR D. IF OVERLAY DEFINING 
REQUIRED THEN ADD T TO DECLARATION. 



Explanation ; The purpose of this message is to indicate a 
difference between this implementation and that of the 
PL/I D and F compilers which may result in the different 
mapping for the structure. 



Programmer Response ; The above action should be carried 
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out if the program was originally written for the D or F 
compilers or if the program is to exchange records to and 
from E or F programs, when the records are derived from 
such structures and therefore require identical mapping. 



IEL0494I E 



Example : 

DCL 1 A, 

2 B(10) CHAR (3), 
2 C(10) CHAR(2) , 
1 D DEF A, 

2 El 5) CHAR (3) , 
2 F(5) CHAR (2); 

(simple defining will be used for structure D) 

STRING OVERLAY DEFINING ASSUMED FOR D. 

STRING LENGTH IN DEFINED ITEM D IS TOO LONG FOR SIMPLE 
DEFINING. STRING OVERLAY DEFINING ASSUMED. 



Example : 



DCL 1 A, 



2 B CHAR(l), 
2 C CHARC79) , 
D DEF A, 

2 E CHAR(40) , 
2 F CHAR (40); 



Explanation : simple defining cannot be used where the 
length of the defined string is greater than the length of 
the base string. In the above example, string D.E is 
longer than its corresponding base string A.B. 



IEL0495I E MAXIMUM LENGTHS OF DEFINED ITEM D AND BASE DIFFER. 

AREA SIZE OR MAXIMUM LENGTH CF VARYING STRING IN SIMPLE 
DEFINED ITEM D DIFFERS FROM THAT OF THE CORRESPONDING 
BASE. RESULTS OF EXECUTION UNDEFINED. 

Example : 

DCL 1 A, 2 B CHAR (3) VAR, 

2 C CHAR (*t) VAR, 
1 D DEF A, 

2 E CHAR (2) VAR, 

2 F CHAR (3) VAR; 

Explanation : If a defined item, for which simple defining 
is used, is a varying string that is shorter than the 
corresponding base string which is also varying, an error 
may occur during execution. A reference to the defined 
varying string may result in a string that is longer than 
its declared maximum length. 

IEL0U96I S T INVALID IN 'CALL' STATEMENT. 

BUILTIN FUNCTION T INVALID IN •CALL* STATEMENT. STATEMENT 
IGNORED. 
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Example: 



P: PROC; 

CALL SIN(X); 

END; 



IEL0497I S 



D INVALID IN •FETCH* OF ' EE LEASE* 



D IN * FETCH' OR •RELEASE* STATEMENT IS INVALID 
IGNORED. 



STATEMENT 



Example; 



P: PROC; 

DCL (El,E2) ENTRY OPTIONS (COBOL) , 

E3 ENTRY OPTIONS (FORTRAN) , 

E4 ENTRY? 
FETCH P; (invalid) 
FETCH El; (invalid) 
FETCH E2? (invalid) 
FETCH E3; (invalid) 
FETCH E4; (valid) 



Explanation ; The identifier in a FETCH statement must be 
the name of an external PL/l procedure, and must be 
declared as such in the procedure containing tjhe FETCH 
statement. Non-PL/I routines or internal PL/I procedures 
cannot be obtained by a FETCH statement. 



IEL0498I E 



INVALID SUBSCRIPTED PREFIX T- 



SUBSCRIPTED STATEMENT PREFIX T IS NOT A NON-STATIC LABEL 
ARRAY. PREFIX IGNORED. 



Example ; 



DCL LS(2) LABEL STATIC; 

LS(1) :; (ignored) 
DCL LAO) LABEL AUTOMATIC; 

LA (2):; (accepted) 
DCL L LABEL; 

L(3);; (ignored) 



IEL0499I S 



D INITIALIZED BY PREFIX AND DECLARATION ■ 



LABEL VARIABLE D IS INITIALIZED BY STATEMENT PREFIX AND BY 
DECLARATION. DECLARED 'INITIAL* IGNORED. 



Example; 



DCL LV(3) LABEL INIT (LI, L2, L3) ; 



LV(1):L1: X=Y/Z; 



IEL0500I S 



CONFLICT IN USE OF D AS T- 



CONFLICT BETWEEN USE OF D AS T AND ITS DECLARED 
ATTRIBUTES. STATEMENT IGNORED. 



Example : 
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IEL0501I E 



DCL P EVENT; 



CALL P; 



Explanation s This message is produced when an identifier 
has an explicit declaration that conflicts with its use 
when the use would constitute a contextual declaration in 
the absence of the explicit declaration. 



D HAS INVALID ATTRIBUTES. OPTION IGNORED. 

ATTRIBUTES FOR D INVALID IN 'ENVIRONMENT* OPTION. OPTION 
IGNORED . 

Example : 

DCL F FILE ENV(RECSIZE(X) EASSWORD (Y) ) ; 
DCL (X,Y) FLOAT; 

Explanation : The attributes for arguments in the 
ENVIRONMENT option are restricted. In the example, the 
arguments, X and Y, should be declared as follows: 

DCL X FIXED BIN (31,0) STATIC; 
DCL Y CHAR STATIC; 



IEL0502I S 



IEL0503I E 



USE OF D CONFLICTS WITH PREVIOUS DECLARATION. 

USE OF D AS A STATEMENT LABEL PREFIX IS A CONFLICTING OR 
MULTIPLE DECLARATION. PREFIX IGNORED. 

Example : 

LI: X=l; 

LI: A=B; 

T ASSUMED TO BE EXTERNAL ENTRY. 

IDENTIFIER T IS NOT DECLARED. EXTERNAL ENTRY ASSUMED. 

Example : 

1. PI: PROC; 

CALL FRED; 

END; 

2. P2: PROC; 

BERT = FRED (6) ; 
END; 



Explanation : In the first example above, FRED is 
contextually declared BUIITIN. It is not however a 
recognized built-in function. In the second example, FRED 
is contextually declared BUILTIN in the absence of an 
explicit or default declaration as an array. 



IEL0504I S 



T aSSUMEE TO BE AN ARRAY. 
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IDENTIFIER T IN 'EUILTIN' CONTEXT IS INVALID. 
BE AN ARRAY. 



ASSUMED TO 



Example : 



P: PROC; 

DEFAULT RANGE (F) (10); 
BERT = FREE (6); 

END; 



Explanation : When a contextual declaration for an 
identifier as BUILTIN conflicts with a default declaration 
for the same identifier as an array, the contextual 
declaration is superseded by the default declaration. 



IEL0505I S 



CONFLICT BETWEEN ATTRIBUTES OF D AND USE AS T. 



CONFLICT BETWEEN DECLARED ATTRIBUTES OF D AND ITS USE AS T 
IN EOUNDS SPECIFICATION. BOUNDS OF N TO 10 ASSUMED. 



Example : 



ECL P, (P is float dec) 
X BASED, 
A (P-> X); 



IEL0506I E 



CONFLICT BETWEEN ATTRIBUTES OF D AND USE AS T. 



CONFLICT BETWEEN DECLARED ATTRIBUTES OF D AND ITS USE AS T 
IN LOCATOR QUALIFICATION. QUALIFICATION IGNORED. 



Example : 



ECL P FLOAT, 

A BASED (P) ; 



IEL0507I S 



CONFLICT BETWEEN ATTRIBUTES OF D AND USE AS T. 



CONFLICT EETWEEN DECLARED ATTRIBUTES OF D AND ITS USE AS T 
IN ADJUSTABLE STRING OR AREA SPECIFICATION. DEFAULT 
EXTENT ASSUMED. 



Example : 



ECL P DECIMAL, 
X BASED, 
A AREA (P-> X), 
B BIT (P-> X) , 
C CHAR (P->X); 



Explanation : The attributes assumed by default are 
AREA(IOOO), BIT (1), and CHAR(l). 



IEL0508I S 



CONFLICT BETWEEN ATTRIBUTES OF D AND USE AS T. 
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Example : 



DCL P DECIMAL, 

Q(10) DECIMAL, 

X BASED, 

A DEFINED (Q(P->X)); 



Explanation ; Invalid INITIAL and POSITION attributes are 
ignored. The storage class AUTOMATIC is assumed for an 
invalid DEFINED attribute. 



IEL0509I E CONFLICT BETWEEN ATTRIBUTES OF D AND USE AS T. 

CONFLICT BETWEEN DECLARED ATTRIBUTES OF D AND ITS USE AS 
T. CONTEXTUAL ATTRIBUTES ASSUMED. 



Example : 

P: PROC (F); 

READ FILE (F) INTO (A); 

(parameter F requires further explicit 
declaration as a file) 



Explanation : Where the explicit declaration of an 
identifier conflicts with the use of the identifier, the 
contextual attributes derived from the usage are assumed. 

IEL0510I E CONFLICT BETWEEN ATTRIBUTES OF D AND USE AS T. 

CONFLICT BETWEEN DECLARED ATTRIBUTES OF D AND ITS USE AS T 
IN •SET* OR •IN* OPTION. OPTION IGNORED. 



Example : 



DCL X BASED, 

(A,P) DECIMAL; 
ALLOCATE X IN (A) SET (P) ; 

("ALLOCATE X; f assumed) 



IEL0511I S D INVALID IN TARGET POSITION. 

D IS NOT A VARIABLE AND IS IN A TARGET POSITION. 
STATEMENT IGNORED. 



Example : 



PROC; 
P = 1; 



Explanation : A target position can be one of the 
following: 

1. The left-hand side of an assignment statement 

2. A do- loop control variable 

3. Data list in a GET statement 

H. INTO option in a READ statement 
5. SET option 
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6- KEYTO option in a READ statement 
7. REPLY option 



IEL0512I S T IS NOT DECLARED. 



QUALIFIED NAME BEGINNING T IS NOT DECLARED- STATEMENT 
IGNORES. 



Example ; 



Ps PROC; 

A.B = 1; 

END; 



Explanation : Structures must be explicitly declared. 

IEL0513I S INVALID USE OF D AS 'BUILTIN' . 

D IS DECLARED BUILTIN BUT IS EITHER NOT A BUILTIN FUNCTION 
NAME OR IS INVALIDLY USED WITHOUT ARGUMENTS. STATEMENT 
IGNORED. 

Example : 

DCL E ENTRY VARIABLE, 
XYZ BUILTIN, 
SIN BUILTIN; 



XYZ; 



E = SIN; 



Explanation : The identifier XYZ is not a built-in 
function. The built-in function SIN is used without an 
argument. 



IEL0514I S D NOT LABEL KNOWN IN CURRENT BLOCK. 

IDENTIFIER D AFTER 'GOTO* IS NOT A LABEL KNOWN IN THE 
CURRENT BLOCK. STATEMENT IGNORED. 



Example : 



PROC; 

BEGIN; 
L: X=l; 

END; 
GO TO P; (P is not known at this point) 
GOTO L; (L is not known at this point) 
END; 



IEL0515I S INVALID USE OF D AS PS EUDO- VARIABLE. 

INVALID USE OF D AS PSEUDO- VARIABLE. STATEMENT IGNORED. 
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Example : 



DCL C CHAR (16); 

SUBSTR ( SUBSTR (C , 3) , 3 ) = ' 1 ' ; 



2. DCL ONCHAR BUILTIN; 

READ FILE (X) INTO (ONCHAR) ; 



IEL0516I S D INVALID IN •FROM* OPTION. 

INVALID ITEM D IN "FROM* OPTION. STATEMENT IGNORED. 



IEL0517I S 



Example ; 

READ FILE (FRED) FROM (FRED) ; 

D INVALID AS 'DO' CONTROL VARIABLE. 

INVALID USE OF D AS CONTROL VARIABLE IN ITERATIVE 
SPECIFICATION. NON-ITERATIVE 'DC* ASSUMED. 



IEL0518I W 



Example : 

DO SIN(X) = 1 TO 10; 

T IS NOT IMPLICITLY •BDILTIN*. 

T IS THE NAME OF A BUILTIN FUNCTION BUT ITS IMPLICIT 
DECLARATION DOES NOT IMPLY 'BUILTIN'. 



Example : 



P: PROC; 

X=DATE ; 

END; 



Explanation : A built-in function that does net require an 
argument must be declared BUILTIN. The declaration can be 
explicit, contextual, or implicit. (A contextual 
declaration is obtained by including a non-executing CALL 
statement for the built-in function name, and an implicit 
declaration is obtained by using the built-in function 
name with a null argument list.) 



IEL0519I S IDENTIFIER BEGINNING T IS AMBIGUOUS. 

IDENTIFIER BEGINNING T IS AN AMBIGUOUS REFERENCE TO A 
STRUCTURE MEMBER. UNDEFINED SELECTION MADE. 



Example : 

DCL 1 A, 2 B, 3 C, 2 D, 3 C; 

A.C = 1; 
Explanation : If a name is an incomplete qualification of 
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more than one identifier, but does not completely qualify 
any identifier, it is in error. 



IEL0520I S TOO MANY SUBSCRIPTS FOR D. 



•ENTRY" VARIABLE D HAS TOO MANY SUBSCRIPTS . STATEMENT! 
IGNORED. 



Example s 

DCL 1 A(10), 2 B(3), 3 C ENTRY (FIXED, FLOAT ) ; 



X= B(9,2). C(5) (P); 



Explanation : Subscripts in a qualified entry name must 
agree in number with the subscripts given in the 
declaration of the containing aggregate so that the 
argument list can be correctly distinguished. 



IEL0521I S WRONG NUMBER OF ARGUMENTS FOR ENTRY. 

WRONG NUMBER OF ARGUMENTS SPECIFIED IN REFERENCE TO ENTRY 
NAME. STATEMENT IGNORED. 



Example : 

P: PROC(X); 

CALL P(Y,Z); 



IEL0522I S INVALID •GOTO' INTO ITERATIVE 'DO' GROUP. 

•GOTO* STATEMENT SPECIFIES INVALID BRANCH INTO AN 
ITERATIVE "DO 1 GROUP. STATEMENT IGNORED. 



Example : 



P: PROC 

DO 1=1 TO 10; 

L: A=A+1; 
END; 

GOTO L; 
END P; 



IEL0523I S INVALID •GOTO" TO •FORMAT' STATEMENT. 



•GOTO" STATEMENT SPECIFIES INVALID BRANCH TO A FORMAT 
STATEMENT. STATEMENT IGNORED. 



Example : 



R: FORMAT (SKlP,COLUMN(2),A); 
GOTO R; 
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IEL0524I S 



AREA EXPRESSION SPECIFIED FOR RETURNED OFFSET. 

COMPILER RESTRICTION. AREA SPECIFIED FOR OFFSET IN 
'RETURNS' SPECIFICATION IS NOT A SIMPLE AREA NAME. AREA 
EXPRESSION IGNORED. 



Example : 



X: ENTRY RETURNS (OFFSET (P->A) ) ; 
CALL X; 



Explanation : An area expression in a RETURNS option must 
be a single identifier that is an area name. 



IEL0525I S 



INVALID 'INITIAL' ATTRIBUTE IGNORED. 

INVALID INITIAL SPECIFICATION FOR SCALAR. 'INITIAL' 
ATTRIBUTE IGNORED. 



Example : 



DCL A INITU10) 0) ; 



IEL0526I S 



PSEUDO-VARIABLE INVALID AS CONTROL VARIABLE. 

SPECIFIED PSEUDO- VARIABLE NOT ALLOWED AS CONTROL VARIABLE 
IN ITERATIVE SPECIFICATION. NON-ITERATIVE 'DO' ASSUMED. 



Example : 



DO COMPLEX (A, B) = M TO N; 



IEL0527I U STATEMENT TOO LARGE. COMPILATION TERMINATED IN PHASE P. 

COMPILER RESTRICTION. STATEMENT TOO LARGE. COMPILATION 
TERMINATED IN PHASE P. 



Explanation : The amount of main storage available for the 
compiler determines the maximum length of a source 
statement. If the storage exceeds 55K bytes, the maximum 
possible statement length can be used. This message may 
be produced also by a statement containing many non- static 
arrays with the INITIAL attribute, particularly if these 
arrays are controlled or are arrays of structures. 



Programmer Response : Either increase the amount of main 
storage for the compiler (SIZE option) to exceed 55K 
bytes, or divide the statement into smaller statements. 
If neither of the above apply, check that the statement 
does not contain an unmatched quote character or comment 
delimiter. If due to array initialization, attempt to 
separate some of the initialization code by means of dummy 
BEGIN blocks or by using separate ALLOCATE statements. If 
this fails initialize the arrays by assignment. 
If the TOTAL option is in use and the program contains 
many record I/O statements close together, break up 
the sequence of these statements by inserting BEGIN... 
END around half of them. 



IEL0528I S 



D INVALID AS REMOTE FORMAT ITEM. 
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D NOT VALID AS REMOTE FORMAT ITEM. STATEMENT IGNORED. 



Example ! 



DCL L(10) LABEL, X; 
PUT FILE(F) EEIT(X) 
PUT FILE(F) EDIT(X) 
PUT FILE(F) EDIT(X) 
LI: FORMAT (F(5,2)); 



(R(L(1))); (valid) 
(R(LD); (valid) 
(R(X)); (invalid) 



Explanation ; This message is produced if the remote 
format item is neither a label on a FORMAT statement, nor 
a label variable, nor a function reference that returns a 
label. 



IEL0529I S 



D IS NOT 'BASED* OR * CONTROLLED" 



D IN *FREE' STATEMENT NOT 'BASED' OR "CONTROLLED*. 
STATEMENT IGNORED. 



Example ; 



P: PROC; 
DCL A; 
FREE A; 

END; 



IEL0530I S 



INVALID USE OF 'STRING' PSEUDC-VARIABLE. 



COMPILER RESTRICTION. INVALID USE OF 'STRING' 
PSEUDO- VARIABLE. STATEMENT IGNORED. 



Example ; 

GET STRING (STRING (A)); (invalid) 

PUT STRING (STRING (A)); (invalid) 

DISPLAY(B) REPLY (STRING (A) ) ; (invalid) 

READ FILE(F) INTO(X) KEYTC (STRING (A) ) ; (invalid) 

STRING (A) = C; (valid) 



Explanation ; The STRING pseudovariable can only be used 
in an assignment statement. 



IEL0531I S 



STRING LENGTH EXCEEDS N, 



COMPILER RESTRICTION. STRING LENGTH EXCEEDS N. 
REPETITION FACTOR OF ONE ASSUMED. 



Example ; 

P: PROC; 

A= (32768)' A'; /* BECOMES 'A' */ 
A= (16384) *AA*; /* BECOMES 'AA* */ 
END; 

Explanation ; An attempt has been made to produce a 
character or bit string with a length exceeding 32767 
or a graphic string with a length exceeding 16383, 
using a repetition factor. A repetition factor of one 
is assumed. 
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IEL0532I S D NOT LABEL CONSTANT KNOWN IN CURRENT BLOCK. 

IDENTIFIER D AFTER 'LEAVE' IS NOT A LABEL CONSTANT KNOWN 
IN THE CURRENT BLOCK. LABEL IGNORED. 

IEL0533I I NO 'DECLARE' STATEMENT (S) FOR D,D,D... 

NO 'DECLARE' STATEMENT (S) FOR D r D r D 

Explanation : Identifiers in the list D,D,D... have not 
been explictly declared. 

IEL0534I I NO 'DECLARE* STATEMENT (S) FOR PARAMETER (S) D. 
NO 'DECLARE* STATEMENT (S) FOR PARAMETER (S) D. 

IEL0538I S CHAR OR BIT OR GRAPHIC OR AREA SIZE INVALID. 

CHAR OR BIT OR GRAPHIC OR AREA SIZE SPECIFIED AS 
NEGATIVE. ZERO IS ASSUMED. 

Explanation ; A character, bit, or graphic string has a 
negative length specified. Zero is assumed. 

Example : 

DCL A CHAR (-4) ; 

IEL053 9I E T IS NOT A BUILT IN FUNCTION NAME. 

T EXPLICITLY DECLARED BUILT IN, BUT IS NOT A BUILTIN 
FUNCTION NAME. DECLARATION DELETED. 

IEL054 0I W EXTENDED FLOAT ARITHMETIC WILL BE USED. 

EXTENDED FLOAT ARITHMETIC WILL EE USED IN THIS PROGRAM 
BECAUSE IT CONTAINS ITEMS WITH EXTENDED PRECISION. 



Explanation ; The message is given as a warning that 
expressions may be evaluated using extended precision even 
though they do not contain variables declared with 
extended precision. The same expressions would be 
evaluated using long float precision if no variables in 
the source program were declared using extended precision. 
Although the use of long float may mean loss of precision, 
it avoids the performance degradation of using extended 
float. 



IEL0541I I ' ORDER* MAY INHIEIT OPTIMIZATION. 

'ORDER" OPTION APPLIES TO THIS BLOCK. OPTIMIZATION MAY BE 
INHIBITED. 
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Example ; 



P: PROC; 

A: PROC REORDER; 
B: PROC; 

END; 
END; 

C: PROC; 

D: PROC ORDER; 
E; PROC; 

END; 
END; 
END; 
END; 



Explanation ; The message is produced for procedures P r C, 
D, and E. Procedure P has the ORDER option by default; 
procedure C inherits the ORDER option from procedure P; 
procedure D has the ORDER option declared explicitly; and 
procedure E inherits the ORDER option from procedure D. 
Procedure A has the REORDER option declared explicitly and 
procedure B inherits the REORDER option from procedure A. 
This message is produced only when the OPT (TIME) option is 
specified for the compilation of blocks to which the ORDER 
option applies. 



IEL0542I S AREA SPECIFIED FOR OFFSET IN ENTRY DECLARATION. 

COMPILER RESTRICTION. AREA SPECIFIED FOR OFFSET IN 
•ENTRY" DECLARATION IS IGNORED. 



Example ; 

DCL E ENTRY (OFFSET (A)); 
is assumed to be: 
DCL E ENTRY (OFFSET); 

IEL0543I S STRUCTURE TERMINATED AFTER N MEMBERS. 

COMPILER RESTRICTION. STRUCTURE TERMINATED AFTER N ITEMS. 



Explanation ; The structure has too many separately 
identifiable items. (Items include all minor structures 
and elements.) 



IEL0541H W 'BUILTIN" SUBROUTINE WILL NOT BE USED FOR D. 

D DECLARED AS EXTERNAL ENTRY REQUIRES PROVISION OF 
SUBROUTINE BY USER PROGRAM. 'BUILTIN^ SUBROUTINE WILL NOT 
BE USED. 



Example ; 

P: PROC; 

DCL PLIDUMP ENTRY; 

CALL PLIDUMP ( • HB • , • P • ) ; 

END; 
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Explanation ; Built-in subroutines such as PLIDUMP are 
contextually declared to be built-in by their appearance 
in a CALL statement. 
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IEL0545I W 'ASSEMBLER" OPTION INVALID- 
USE OF "ASSEMBLER' OPTION INVALID ON ■• PROCEDURE • OR 
•ENTRY" STATEMENT. OPTION IGNORED. 

Example : 

P: PROC OPTIONS (ASSEMBLER) ; 

Explanation ; The ASSEMBLER option is valid only in 
an ENTRY declaration. 



IEL0547I W 



•INTER" OPTION ASSUMED. 



IEL0548I W 



•ASSEMBLER" OPTION SPECIFIED WITHOUT "INTER 1 
OPTION. "INTER* OPTION ASSUMED. 

Example : 

DCL E ENTRY OPTIONS (ASSEMBELR) ; 

Explanation : The compiler does not disable PL/I 
interrupt handling when processing an ENTRY statement 
declared with the ASSEMBLER option. 

PARAMETER TO MAIN PROCEDURE NOT VARYING CHARACTER STRING. 

PARAMETER TO PRIMARY ENTRY POINT OF MAIN PROCEDURE IS NOT 
VARYING CHARACTER STRING. 



Example : 



P: PROC(X) OPTIONS (MAIN) ; 
DCL X FLOAT; 



Explanation : OS passes arguments in the form of PL/I 
varying character strings, which comprise a 2-byte length 
field followed by the string data. 

IEL054 9I E CONFLICT IN USE OF D AS T. 

CONFLICT BETWEEN USE OF D AS T AND ITS DECLARED 
ATTRIBUTES. BIT VALUE ONE ASSUMED IN WHEN CLAUSE. 

Example : 

DCL E EVENT; 

WHEN (E->B)... 

Explanation : In example identifier E is explictly declared 
with the attribute EVENT. Its contextual use as a pointer 
(E->B) conflicts with the explictly declared attribute 

EVENT. 



IEL0550I E INVALID PREFIX(ES) SPECIFIED ON *WHEN" OR •OTHERWISE* 
CLAUSE. 

INVALID PREFIX (ES) SPECIFIED ON 'WHEN" OR •OTHERWISE' 

CLAUSE. PREFIX (ES) IGNORED. 
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Example 



SELECT (I), • 
LAE1: WHEN (A) ; 
END; 



or 



SELECT (I); 

WHEN (A) ; 

( ZEROD IVIDE ) : OTHERWISE ; 

ENE; 



IEL0551I S NULL OR INVALID 'SELECT* EXPRESSION. 

NULL OR INVALID 'SELECT* EXPRESSION. EXPRESSION IGNORED. 

IEL0552I S DUPLICATE INITIALIZATION OF ELEMENT OF LABEL ARRAY D. 

SUBSCRIPTED STATEMENT PREFIX SPECIFIES A DUPLICATE 
INITIALIZATION OF AN ELEMENT OF LABEL ARRAY T. PREFIX 
IGNORED. 

Example : 

DCL L(10) LABEL; 

L(1) : X=Y; 

L ( 1 ) : A=B ; 
Explanation ; The second appearance of L ( 1 ) is in error. 



IEL0553I U 



IEL055UI S. 



IEL0555I W 



END OF SOURCE TEXT IN GRAPHIC STRING OR STATEMENT TOO 
LONG AND CONTAINS UNMATCHED GRAPHIC QUOTE. 

END OF SOURCE TEXT FOUND IN GRAPHIC STRING OR STATEMENT 
LENGTH TOO LONG AND STATEMENT CONTAINS UNMATCHED GRAPHIC 
QUOTE. COMPILATION TERMINATED. 

Explanation ; The compiler has reached the end of the 
source program or the maximum length and has not found 
an ending graphic quotation mark. The compiler will 
terminate. 

Programmer Respo nse: Check whether there is a graphic 
quotation mark missing or the source program is incomplete, 



CONVERSION OF GRAPHIC EXPRESSION INVALID. 

CONVERSION OF GRAPHIC EXPRESSION INVALID. 
IGNORED. 



STATEMENT 



Explanation : No conversions are made by the compiler 
for graphic data. 



INVALID CONTINUATION OF GRAPHIC STRING. 

INVALID CONTINUATION OF GRAPHIC STRING. LAST COLUMN 
ON LINE IGNORED. 
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IEL0556I E 



Explanation ; Since each graphic requires 2 bytes, you 
must be sure the graphic string fits exactly within the 
compiler margins; that is, there are no extraneous 
characters such as EBCDIC blanks embedded in the 
graphic string. 



GRAPHIC STRING CONSTANT NOT TERMINATED BY GRAPHIC G 
AND SI. 

GRAPHIC STRING CONSTANT NOT TERMINATED BY GRAPHIC G 
AND SI. CORRECT TERMINATION ASSUMED. 

Explanatio n; The graphic quotation mark terminating 

a graphic "string must be followed by a graphic "G" and 

a right delimiter (the default is an SI control character) 



IEL0560I W 



EXTERNAL ENTRY NAME BEGINS "IHE 1 . 



EXTERNAL ENTRY NAME BEGINS 'IHE*. POSSIBLE PL/I F 
COMPILER BUILT IN SUBROUTINE. 



Example : 

CALL IHESRTACA,B,C,D r E) ; /*SORT ROUTINE*/ 



Explanation : F compiler subroutines commence with the 
characters "IHE', and therefore it is likely that the 
program has not been correctly converted for use with the 
optimizing compiler. 



IEL0561I I 



DUPLICATE D IN PARAMETER LIST. 



D APPEARS MORE THAN ONCE IN THE PARAMETER LIST. ONLY THE 
FIRST OCCURRENCE IS USED. 

Explanation ; A parameter should not be specified more than 
once in a parameter list. The compiler ignores subsequent 
occurrences. 



IEL0562I S 



MORE THAN N PARAMETERS SPECIFIED. 



MORE THAN N PARAMETERS SPECIFIED FOR THE CURRENT BLOCK. 

Explanation ; The combined number of unique parameters 
specified in the procedure statement and all its entry 
statements cannot exceed 255. 

Programmer Response : Either reduce the number of unique 
parameters or restructure the program by dividing the 
procedure into smaller ones with fewer parameters. 
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IEL0563I W STATEMENT NUMBER/LEVEL/NEST LISTING DETAILS MAY BE 
INCOMPLETE. 

STATEMENT NUMBER/LEVEL/NEST DETAILS MAY BE INCOMPLETE IN 
SOURCE LISTING DUE TO PREVIOUSLY DETECTED INVALID SYNTAX, 

Ex planation : The compiler has noted an invalid syntax 
condition (message IEL0327) . During subsequent source 
analysis, several lines may be printed without statement 
number, level, or nest details. (Incomplete details may 
continue until the compiler encounters the next line 
containing a quotation mark.) 
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Programmer Response ; Correct the syntax error noted by 
message IEL0327I. 



IEL0564I E T CONFLICTS WITH T. 

T OPTION CONFLICTS WITH THE T OPTION AND IS IGNORED. 

Example ; 

GET STRING (S1) EDIT (S2) (A(1 0) ) COPY.... 

Explanation : The COPY option may appear only in a GET 
FILE statement. 

IEL0580I E INVALID INITIALIZATION FOR 'STATIC* LABEL D. 

INITIALIZATION INVALID FOR •STATIC LABEL VARIABLE D. 
INITIALIZATION ACCEPTED. 



Example i 



1. DCL LV LABEL STATIC I NIT (LAB); 
LAB: ; 

2. DCL L(10) LABEL STATIC; 
L(l): ; 



IEL0581I S 



Explanation: The compiler allows the illegal language 
shown above, but for the program to execute successfully, 
the OPT (TIME) compiler option must be specified, and the 
number of elements in the array must not exceed 511. 

INVALID BIT AGGREGATE DEFINING IGNORED. 

COMPILER RESTRICTION. INVALID USE OF •DEFINED* FOR BIT 
AGGREGATE D. 'DEFINED' ATTRIBUTE IGNORED. 



Explanation : Defining on a bit aggregate is not 
permitted by this compiler when either the defined item 
is subscripted or the expression in the POSITION attribute 
is not an integer constant. 



Example : 



DCL 1 BK10), 

2 B2 BIT(l) , 
2 B3 BIT(l), 
2 B4 BIT (2); 

1. DCL 1 D1K10) DEF Bl, 

2 D2 BIT(2), 
2 D3 EIT(3); 
(this declaration is valid) 

2. DCL 1 D12 DEF B1 (2) , 

2 D2 BIT (2) , 
2 D3 BIT (2); 
(this declaration is invalid) 

3. DCL 1 D13 (10) DEF B1 POS (X) , 

2 D2 BIT(1) , 
2 D3 BIT(1) ; 
(this declaration is also invalid) 
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IEL0582I E MORE THAN 64 PARAMETERS. 

MORE THAN 64 PARAMETERS IN CALL OR FUNCTION STATEMENT. 



IEL0599I W D IS NOT THE SAME AS THAT SPECIFIED OR IMPLIED BY THE 
OFFSET ATTRIBUTE. 



IEL0600I S 



D IS NOT THE SAME AS THAT SPECIFIED OR IMPLIED BY THE 
OFFSET ATTRIBUTE. THE RESULTS OF EXECUTION ARE UNDEFINED 
UNLESS THE FORMER IS CONTAINED IN OR CONTAINS THE LATTER. 

Example : 

DCL A AREA (30) ; 

DCL D FIXED BINARY (31) BASED; 

DCL 1 B BASED (P) , 

2 OFF OFFSET (A) , 

2 C AREA (10) ; 
ALLOCATE B IN (A) SET (P) ; 
ALLOCATE D IN(C) SET (OFF) ; 

Explanation : An execution error can occur if the OFFSET 
variable is not contained in an area as specified in the 
IN/SET option of the ALLOCATE statement. (See the rules for 
the ALLOCATE statement in the PL/ I Language Reference 
Manual . ) 

[PROLOGUE CODE.] LOCATOR QUALIFICATION OF BUILTIN 
FUNCTION T. 



[PROLOGUE CODE.] LOCATOR QUALIFICATION OF BUILTIN FUNCTION 
T. STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example : 



DCL TIME BUILTIN; 
T=P->TIME; 



Explanation ; Locators can only qualify based variables. 
Built-in functions cannot be based. 



IEL0601I S 



INVALIDLY DECLARED VARIABLE. STATEMENT IGNORED. 
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INVALID DECLARATION OF A VARIABLE USED IN THIS STATEMENT. 
STATEMENT IGNORED. 
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Example : 



DCL X BASED (A.B) ; 



X = 1; 



Explanation : A variable which has been incorrectly 
declared and for which a message will have been issued has 
been used elsewhere. The message is issued because the 
compiler was unable to complete the declaration of the 
variable. 



IEL0602I S [PROLOGUE CODE.] LOCATOR QUALIFICATION OF NON-BASED D. 

[PROLOGUE CODE . ] LOCATOR QUALIFICATION OF NON-EASED 
VARIABLE D. STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED.] 



Example : 

DCL P POINTER, B FIXED; 
A = P -> B; 



Explanation : Locators (pointers and offsets) can only 
qualify based variables. 

IEL0603I S STRUCTURE D DEPENDS ON A VARIABLE WITHIN STRUCTURE. 

MAJOR STRUCTURE D ALLOCATION DEPENDS ON A VARIABLE DEFINED 
WITHIN THE STRUCTURE. [RESULTS OF EXECUTION UNDEFINED.] 

IEL0604I S [PROLOGUE CODE.] AGGREGATE D INVALID AS LOCATOR QUALIFIER. 

[PROLOGUE CODE.] USE OF AGGREGATE D FOR LOCATOR 
QUALIFICATION IS INVALID. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 
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Example ; 



DCL P(10) POINTER; 
P -> X = Y; 



Explanation ; A locator qualifier must be an element and 
cannot be an unsubscripted or unqualified reference to an 
aggregate containing locators. 



IEL0605I S 



C PROLOGUE CODE.] LEVEL OF LOCATOR QUALIFICATION EXCEEDS N. 



COMPILER RESTRICTION. [PROLOGUE CODE.] LOCATOR 
QUALIFICATION IS RECURSIVE OR NUMBER OF LEVELS EXCEEDS N. 
STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example ; 



1. DCL P BASED (Q) , 
Q BASED (P) ; 
P->Q->A=B 



2. P1->P2->P3 



->P99->A=B; 



IEL0606I S [PROLOGUE CODE.] NO LOCATOR QUALIFICATION FOR EASED 
VARIABLE E. 

[PROLOGUE CODE.] BASED VARIABLE D IS REFERENCED WITHOUT 
LOCATOR QUALIFICATION. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example ; 



DCL B BASED; 
A=B; 



Explanation ; A based variable declared without an 
implicit pointer qualifier roust be referred to with an 
explicit pointer qualifier. 



IEL0607I S [PROLOGUE CODE.] T INVALID AS LOCATOR QUALIFIER. 

[PROLOGUE CODE.] INVALID USE OF BUILTIN FUNCTION T AS 
LOCATOR QUALIFIER. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example : 



DCL A BASED; 
DATAFIELD -> A=B; 



Explanation ; A built-in function cannot be used as a 
locator qualifier. 



IEL0608I S 



[PROLOGUE CODE.] ENTRY D INVALID AS LOCATOR QUALIFIER. 
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[PROLOGUE CODE.] INVALID USE OF EN1RY D AS A LOCATOR 
QUALIFIER- STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED . ] 



Example : 



DCL X ENTRY RETURNS CFLOAT) ; 
DCL A BASED; 
X -> A=B; 



Explanation ; An entry name cannot be used as a locator 
qualifier. 



IEL0609I S [PROLOGUE CODE.] EXPRESSION INVALID AS ARGUMENT TO 
'STRING' . 

[PROLOGUE CODE.] INVALID USE OF EXPRESSION AS ARGUMENT TO 
•STRING" BUILTIN FUNCTION. STATEMENT IGNORED. [RESULTS 
OF PROLOGUE UNDEFINED. ] 



Example : 

A=STRING(B+C) ; 



Explanation : The argument to the STRING built-in function 
must be an expression representing string data. 



IEL0610I S [PROLOGUE CODE.] INVALID ARGUMENT TO 'STRING'. 

[PROLOGUE CODE.] ELEMENTS OF ARGUMENT TO 'STRING' BUILTIN 
FUNCTION MUST BE EITHER ALL CHARACTER OR ALL EIT. 
STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example : 

DCL 1 S, 

2 B BIT(l), 

2 C CHAR ( 6) ; 

A = STRING (S); 



Explanation : The argument to the STRING built-in function 
must consist of string data that is either all BIT or all 
CHARACTER- 



IEL0611I S [PROLOGUE CODE.] NO ARGUMENTS PASSED TO T. 

[PROLOGUE CODE.] NO ARGUMENTS PASSED TO BUILTIN FUNCTION 
OR PSEUDO-VARIABLE T- STATEMENT IGNORED. [RESULTS OE 
PROLOGUE UNDEFINED.] 



Example : 



X=SUBSTR ; 



IEL0612I S INVALID ARGUMENT TO T. 

EXPRESSION OR CONSTANT INVALID AS ARGUMENT TO 
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PSEUDO VARIABLE T. STATEMENT IGNORED. 

Example : 

SUBSTR <A+B,I,J) = C; 



Explanation : The argument to the pseudovariable must be 
an element variable. 



IEL0613I S DATA TYPE OF ARGUMENT D INVALID FOR 1. 

[PROLOGUE CODE.] DATA TYPE OF ARGUMENT D INVALID FOR 
BUILTIN FUNCTION T. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example : 



DCL E FIXED BINARY; 
I = STATUS <E); 

(E should be an event variable) 



IEL0614I S 



[PROLOGUE CODE.] INCORRECT 'AREA' SPECIFIED FOR OFFSET 
D. 



[PROLOGUE CODE.] INCORRECT 'AREA' SPECIFIED OR DECLARED 
FOR OFFSET D- STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example : 



DCL (A,B) AREA, 

S BASED(P); 

O OFFSET (B); 
ALLOCATE S IN (A) SET(O); 



Explanation : The area used in the IN option is 
different from that declared with the offset variable. 



IEL0615I W 



RESULTS MAY BE UNDEFINED IN USE OF ■REFER' VARIABLE D, 



COMPILER RESTRICTION. RESULTS MAY BE UNDEFINED IF 
LOCATOR QUALIFIER FOR D OR 'REFER' EXTENTS CHANGED 
IN LOOP. 



Example : 

DCL 1 N BASED,2 NO, 2 NV(I REFER(NO)), 2 NP ; 

Q=P(1); 

DO 1=1 BY 1 WHILE (Q -> NP<U) ; 

Q=P(I+1); 

END; /*LOOP MAY NOT TERMINATE AFTER 3 ITERATIONS*/ 



Explanation : Mapping to refer variables appearing in 
WHILE expressions is performed once only outside the loop 
so that the expression is reevaluated without taking 
account of any changes of generation or adjustability. 
If the generation to the refer variable is changed in the 
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loop by an ALLOCATE or FREE statement, by an assignment to 
a locator qualifying the refer variable, or if the extents 
of the refer variable are changed in the loop, unexpected 
results may occur. 

IEL0616I W VARIABLE IN 'INITIAL' FOR D MAY BE UNINITIALIZED. 

INITIAL SPECIFICATION FOR VARIAELE D MAY CONTAIN AN 
UNINITIALIZED VARIABLE. RESULTS OF EXECUTION UNDEFINED. 



Example : 

DCL M, N INIT(M); 



Explanation ; This is a possible error detected in 
compiling the prologue routine to the program block which 
contains the erroneous initial specification. 
Consequently, the statement number given in this message 
is that of the PROCEDURE or BEGIN statement for the block. 



Programmer Response ; The program may contain a preceding 
declaration which uses the INITIAL CALL form of the 
INITIAL attribute to invoke a procedure that assigns a 
value to the identifier used in the subsequent INITIAL 
specification. If so, this message may be ignored. 
Otherwise, the program should be modified to ensure that 
the identifier will be initialized before it is itself 
used in the INITIAL attribute. 



IEL0617I S T NOT LEVEL ONE. 

D IN 'FREE' STATEMENT NOT LEVEL ONE. STATEMENT IGNORED. 

Example ; 

DCL 1 A BASED, 
2 B, 2 C; 

FREE B; 



Explanation ; A FREE statement cannot be used to free 
storage occupied by a part of a based or controlled item. 



IEL0618I S 



[PROLOGUE CODE.] 'DCL* OR 'DFT* STATEMENT CONTAINS 
INVALID EXPRESSION. 

[PROLOGUE CODE.] 'DECLARE' OR 'DEFAULT* STATEMENT 
CONTAINS AN INVALID EXPRESSION. STATEMENT IGNORED. 
[RESULTS OF PROLOGUE UNDEFINED.] 

Example : 

DCL A DEF B(l); 

DCL B; 

A=0; 

Explanation : In the above example, B is undimensioned. 
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IEL0619I S 



[PROLOGUE CODE.] CONSTANT ARGUMENT TO T. 



t PROLOGUE CODE.] CONSTANT IS INVALID ARGUMENT TO BUILTIN 
FUNCTION T. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example ; 



DCL P POINTER; 



P = ADDR(27); 



P = ADDR(L); 



Explanation : A constant in PL/I is not considered to be 
associated with a particular location in storage. It 
cannot, therefore, have a storage address. 



IEL0620I S 



[PROLOGUE CODE.] ARGUMENT N TO D IS NOT AN ARRAY. 



[PROLOGUE CODE.] ARGUMENT NUMBER N TO ENTRY D IS NOT AN 
ARRAY BUT THE CORRESPONDING PARAMETER HAS A •*■ BOUND. 
STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example ; 



DCL J; 

CALL E(J); 
E: PROC(P); 
DCL P(*); 



Explanation ; A parameter with an adjustable (*) bound is 
assumed to be an array that obtains the value for the 
bound from the associated argument. Consequently, the 
argument must also be an array. 



IEL0621I S [PROLOGUE CODE.] AGGREGATE ARGUMENT D INVALID FOR ELEMENT 
PARAMETER. 

[PROLOGUE CODE.] PARAMETER CORRESPONDING TO AGGREGATE 
ARGUMENT D IS AN ELEMENT. STATEMENT IGNORED. [RESULTS 
OF PROLOGUE UNDEFINED.] 



Example : 



DCL E ENTRY ( FLOAT ) , 

ARR(8) FLOAT; 
CALL E(ARR); 

DCL ARR(8) FLOAT; 
CALL E(ARR); 
E: PROC (PARAM) ; 
DCL PARAM FLOA1; 



Explanation ; An aggregate argument cannot be passed to a 
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parameter that is not an aggregate. 

IEL0622I S RECORD VARIABLE D NOT •CONNECTED* . 

RECORD VARIABLE D IS NOT 'CONNECTED*. STATEMENT IGNORED. 

Example : 

ECL 1 A U) , 

2 B CHARC3) , 

2 C CHAR (7); 
READ FILE(F) INTO (B) ; 

Explanation : The INTO or FROM option of a record-oriented 
input/output statement must refer to an identifier that 
represents a contiguous area of storage. 

IEL0623I S [PROLOGUE CODE.] ARGUMENT N TO D INVALID FOR •CONTROLLED* 
PARAMETER. 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO ENTRY D INVALID FOR 
•CONTROLLED* PARAMETER. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example : 



E: 



DCL X(10); 

CALL E(X) , 

PROC(C) 

DCL C(10) CTL; 



Explanation : An argument corresponding to a controlled 
parameter must be a level 1 unsubscripted variable with 
the CONTROLLED attribute. Other attributes must also 
match those of the parameter so that the argument need not 
be converted and assigned to a temporary argument. 

IEL0624I S [PROLOGUE CODE.] ARGUMENT N TO D HAS TOO MANY DIMENSIONS. 

COMPILER RESTRICTION. [PROLOGUE CODE.] RESULT OF 
EXPRESSION IN ARGUMENT NUMBER N TO ENTRY D HAS TOO MANY 
DIMENSIONS. STATEMENT IGNORED. [RESULTS OF PROLGOUE 
UNDEFINED. ] 



Example: 



ECL 1 A, 

2 B, 

2 C(2,2, 2, 2,2,2, 2,2,2,2); 
CALL X(A*C) ; 



Explanation : The expression (A+C) results in a temporary 
argument that is an array of structures, the first 
structure element having 10 dimensions, and the second 
having 20 dimensions. The maximum permitted number of 
dimensions is 15. If an argument contains both an array 
and a structure and there is no parameter descriptor, the 
temporary argument is created in the form of an array of 
structures . 
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IEL0625I S 



[PROLOGUE CODE.] *•• USED AS ARGUMENT TO D. 



[PROLOGUE CODE.] '** USED AS ARGUMENT TO D. 
IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



STATEMENT 



Example : 



1. DCL X ENTRY; 
CALL X(*); 

2. A=HBOUND(*,l) ; 



Explanation ; An asterisk, which can be used in a 
subscript list to indicate a cross-section of an array, is 
meaningless in an argument list. Ihe error may have 
occurred because an array declaration has been omitted. 

IEL0626I S [PROLOGUE CODE.] STRUCTURING OF D DOES NOT MATCH 
PARAMETER. 

[PROLOGUE CODE.] STRUCTURING OF ARGUMENT D DOES NOT MATCH 
THAT OF PARAMETER. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example : 
1. 



DCL 1 S,2 SI, 2 S2; 
CALL P(S); 
P: PROC(F) ; 
DCL F; 

DCL 1 H, 2 HI, 3 H2; 

CALL Q(H); 

Q:PROC(G); 

DCL 1 G, 2 Gl, 2 G2; 



Explanation : A structure passed as an argunrent should 
match the corresponding parameter exactly. (However, a 
parameter that is a structure may correspond to an 
argument that is not a structure.) 



IEL0627I S 



[PROLOGUE CODE.] DIMENSIONS OF D DO NOT MATCH PARAMETER. 



[PROLOGUE CODE.] NUMBER OF DIMENSIONS IN ARGUMENT D DOES 
NOT MATCH THAT OF PARAMETER. STATEMENT IGNORED. 
[RESULTS OF PROLOGUE UNDEFINED.] 



Example : 



1. DCL S(10) ; 
CALL P(S); 
P:PROC(F); 
DCL F; 

2. DCL H(10); 
CALL Q(H); 
Q:PROC(G) ; 
DCL G<10,10); 



Explanation : An array passed as an argument must match 
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the corresponding array parameter for dimensions. 
(However, a parameter that is an array may correspond to 
an argument that is not an array.) 



IEL0628I S [PROLOGUE CODE.] BOUNDS OF D DO N01 MATCH PARAMETERS. 

[PROLOGUE CODE.] BOUNDS OF ARGUMENT D DO NOT MATCH THOSE 
OF PARAMETER. STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED.] 



Example : 
1. 



2. 



DCL SU,12) ; 
CALL PCS); 
P:PROC(F) ; 
DCL F(4,10); 

DCL 1 H(6), 2 HI, 2 H2(5); 

CALL Q(H) ; 

Q: PROC(G); 

DCL 1 G(6), 2 Gl, 2 G2U); 



Explanation : An argument with fixed bounds must match the 
corresponding parameter at all levels. 



IEL0629I S [PROLOGUE CODE.] USE OF CROSS- SECTION OF STRUCTURE D 
INVALID. 

COMPILER RESTRICTION. [PROLOGUE CODE.] USE OF CROSS- 
SECTION OF STRUCTURE D IS INVALID. STATEMENT IGNORED. 
[RESULTS OF PROLOGUE UNDEFINED.] 



Example: 



DCL 1 S(4,4) , 2 SI, 2 S2; 
CALL X(S(2,*)) ; 



Explanation ; A cross-section of an array of structures 
cannot be given as an argument. The reference must be 
either fully subscripted with an asterisk for each 
dimension or unsubscripted. 



IEL0630I S [PROLOGUE CODE.] SUBSCRIPT CONTAINING D IS NOT AN ELEMENT- 

[PROLOGUE CODE.] SUBSCRIPT CONTAINING D IS NOT AN ELEMENT 
EXPRESSION. STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED.] 



Example : 



1. DCL A(10,10); 

A(2,A)=1; 

2. DCL A(10,10) ; 

A(2 f SUBSTR(A,1))=1; 



Explanation : An array subscript must be an expression 
that represents the value of a single integer. 
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IEL0631I S 



[PROLOGUE CODE.] WRONG NUMBER OF SUBSCRIPTS FOR D. 



[PROLOGUE CODE.] WRONG NUMBER OF SUBSCRIPTS FOR D. 
STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example : 

1. DCL A(5,5) j 

X = A(2); 

2. DCL A; 

X = A(2); 



Explanation ; A reference to an array must contain the 
same number of subscripts as given in its declaration. 



IEL0632I S 



[PROLOGUE CODE.] STRUCTURE IS INVALID ARGUMENT TO T. 



COMPILER RESTRICTION. [PROLOGUE CODE.] STRUCTURE IS 
INVALID ARGUMENT TO BUILTIN FUNCTION T. STATEMENT 
IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example ; 



DCL 1 S, 

2 SI CHAR, 

2 S2 CHAR (4) ; 

S= SUBSTR(S,1,3); 



Explanation ; The only built-in functions that accept 
structures as arguments are ALLOCATION, ADDR, and STRING. 
All other operations oh structures by built-in functions 
must be specified individually for each element. 



IEL0633I S [PROLOGUE CODE.] EXPRESSION OR 'ISUB' ARRAY INVALID 
ARGUMENT TO T- 

[PROLOGUE CODE.] EXPRESSION OR ISUB-DEFINED ARRAY IS 
INVALID ARGUMENT TO BUILTIN FUNCTION T. STATEMENT 
IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example ; 

I=ALLOCAT ION (A+B) ; 



Explanation ; Operational expressions are not permitted as 
arguments to the built-in functions ALLOCATION, ADDR, and 
STRING. 



IEL0634I S 



[PROLOGUE CODE.] ELEMENT IS INVALID ARGUMENT TO T. 



[PROLOGUE CODE.] ELEMENT IS INVALID ARGUMENT TO BUILTIN 
FUNCTION T. STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED.] 



Example ; 

DCL X; 
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I- BBOUND<X,D? 

Explanation : Array built-in functions cannot have element 
arguments . 

IEL0635I E [PROLOGUE CODE.] NON-CONNECTED ARGUMENT TO 'ADDR* INVALID. 

[PROLOGUE CODE.] NON-CONNECTED ARGUMENT TO BUILTIN 
FUNCTION •ADDR t INVALID. ARGUMENT ACCEPTED. 



Example : 



DCL A(10,10), P POINTER; 
P=ADDR(A(*,D); 



Explanation : The argument to the built-in function ADDR 
occupies non- connected storage. The value returned by the 
function is the address of the first byte of the argument. 
Care must be exercised when using this pointer to refer to 
a based variable, since it is probable that the based 
variable will be mapped over storage occupied not only by 
the argument, but by some other variable as well. 



IEL0636I S EXPRESSION OR 'ISUB' ARRAY IN GET/PUT DATA. 

EXPRESSION OR ISUE- DEFINED ARRAY USED IN GET/PUT DATA. 
STATEMENT IGNORED. 



Example : 



2. 



DCL AC10), B(5) DEF A(2*1SUB); 
GET DATA(E); 

DCL C(6) CHAR (8); 

PUT DATA(SUBSTR(C,3)); 



Explanation : PL/ I does not permit expressions in GET DATA 
or PUT DATA statements, and the optimizing compiler does 
not implement the transmission of iSUB defined arrays by 
these statements. 



IEL0637I S [PROLOGUE CODE.] SECOND ARGUMENT TO T IS AGGREGATE. 

[PROLOGUE CODE.] SECOND ARGUMENT TO BUILTIN FUNCTION I IS 
AN AGGREGATE. STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED.] 



Example : 



DCL ARR(IO) , T; 

T = HBOUND(ARR,ARR); 



Explanation : With the exception of the POLY built-in 
function, the array built-in functions that have two 
arguments must have an element expression as the second 
argument. 



IEL0638I S 



[PROLOGUE CODE.] ARGUMENT N TO 'POLY' HAS MORE 1HAN ONE 



Part I: Compile-time(IEL) Messages 133 
*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 3 *** 



DIMENSION . 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO BUILTIN FUNCTION 
'POLY* HAS MORE THAN ONE DIMENSION. STATEMENT IGNORED. 
[RESULTS OF PROLOGUE UNDEFINED.] 



Example : 



DCL ARR(6,6); 

X = POLY(ARR,X) ; 



IEL0639I E [PROLOGUE CODE.] ARGUMENT TO 'ADDR* MAY HAVE WRONG 
ALIGNMENT. 

[PROLOGUE CODE.] ARGUMENT TO BUILTIN FUNCTION 'ADDR' MAY 
HAVE WRONG ALIGNMENT. ARGUMENT ACCEPTED. 



Example ; 



DCL 1 



UNALIGNED, 
T BIT (3) , 
U BIT (8), 
PTR; 



ADDR(U); 



Explanation ; This implementation uses byte addresses for 
locator values and does not provide bit addressing 
mechanisms for them. Consequently, if the argument to the 
ADDR built-in function does not lie on a byte boundary, 
the address returned will be that of the containing byte. 

IEL0640I W ARGUMENT N TO GENERIC ASSUMED TO MATCH AGGREGATE 
PARAMETER. 

ARGUMENT NUMBER N TO GENERIC FUNCTION IS ASSUMED TO MATCH 
ITS CORRESPONDING AGGREGATE PARAMETER. 



Example: 



DCL G GENERIC, 

(Gl WHEN (FIXED), 
G2 WHEN (FLOAT)) 
(G1,G2) ENTRY, 
ARR(IO) FLOAT; 

CALL G(ARR); 



Explanation ; Matching of arguments and parameters is not 
performed on aggregate arguments to generic functions . 
Consequently, a mis-match will not be detected and an 
execution-time error could result. 



IEL0641I S 



NESTING OF FUNCTIONS EXCEEDS MAXIMUM. 
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COMPILER RESTRICTION. LEVEL OF NESTING OF FUNCTIONS 
EXCEEDS MAXIMUM. STATEMENT IGNORED. 
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Explanation : The nominal limit on the number of nested 
functions in a source module is 50. However, this limit 
may vary according to the length of the labels prefixed to 
the PROCEDURE statements. If the average length of the 
labels exceeds eight characters, the maximum number of 
nesting levels will be less than 50. 



IEL0642I S 



ARRAY D IN ELEMENT ASSIGNMENT. 



INVALID USE OF ARRAY D IN ELEMENT ASSIGNMENT. 
IGNORED. 



STATEMENT 



Example : 



ECL A(8,8); 
I = A + J; 



Explanation : An unsubscripted array reference cannot 
appear on the right-hand side of an assignment to an 
element variable. 



IEL0643I S 



STRUCTURE D IN ARRAY OR ELEMENT ASSIGNMENT. 



INVALID USE OF STRUCTURE D IN ARRAY OR ELEMENT ASSIGNMENT. 
STATEMENT IGNORED. 



Example : 



DCL 1 A, 2 B, 2 C; 
ECL (X,Y)C5); 
I=A+J? (invalid) 
X=Y+A; (also invalid) 



Explanation : A structure cannot be used in an assignment 
to an array or to an element variable. 



IEL06U4I S 



AGGREGATE D USED WHERE ELEMENT REQUIRED. 

AGGREGATE D USED WHERE ELEMENT EXPRESSION IS REQUIRED. 
STATEMENT IGNORED. 



IEL0645I S 



Example : 

DCL IF, 2 B, 2 C; 
READ FILE (F) INTO(X); 

Explanation : A structure has been used where the language 
requires an element expression. 



DIMENSIONS OF D DO NOT MATCH FIRST AGGREGATE- 

NUMBER OF DIMENSIONS IN AGGREGATE D DOES NOT MATCH THE 
FIRST AGGREGATE IN EXPRESSION. STATEMENT IGNORED. 



Example : 



DCL A(6,6) , B(6) , C(6); 
PUT EDIT (A+B+C) (A(5)); 
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Explanation ; In an expression involving more than one 
aggregate* all the aggregates involved must have identical 
dimensions. 



IEL0646I S 



BOUNDS OF D DO NOT MATCH FIRST AGGREGATE. 



BOUNDS OF AGGREGATE D DO NOT MATCH THE FIRST AGGREGATE IN 
EXPRESSION. STATEMENT IGNORED. 



Example : 



DCL A(3,3), B(2:5,-3:-l>; 

DCL C(4,4); 

PUT LIST (A+C); (incorrect) 

PUT LIST (A+B) ; (also incorrect) 



Explanation : In an expression involving more than one 
aggregate* all the aggregates involved must have identical 
dimensions . 



IEL06U7I S 



STRUCTURING OF D DOES NOT MATCH FIRST STRUCTURE. 



STRUCTURING OF D DOES NOT MATCH THE FIRST STRUCTURE IN 
EXPRESSION. STATEMENT IGNORED. 



Example : 



DCL 1 A, 2 B, 2 C, 
1 X, 2 Y r 2 Z, 
PUT LIST (A+X) ; 



3 U; 



Explanation : In an expression involving more than one 
structure, all the structures involved must have identical 
structuring. 



IEL0648I S 



AGGREGATE D USED IN EXTENT SPECIFICATION IN BLOCK. 



AGGREGATE D USED FOR EXTENT SPECIFICATION IN 'DECLARE" OR 
•DEFAULT" STATEMENT FOR BLOCK BEGINNING AT THIS STATEMENT. 
RESULTS OF EXECUTION UNDEFINED. 



Example : 



ECL 1 S, 

2 P, 

2 Q; 
DCL 1 A, 

2 B CHAR (5), 

2 C CHAR (S) ; 



Explanation : The implementation will assume that the 
entire content of the aggregate is to be used as the 
length specification. This may result in an 
execution-time error. 



IEL0649I E 



TARGET OF 'BYNAME* ASSIGNMENT NOT A STRUCTURE. 
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TARGET OF ASSIGNMENT CONTAINING 'BYNAME' OPTION IS NOT A 
STRUCTURE. OPTION IGNORED- 
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Example i 



ECL (A,B) FIXED; 
A = B, BY NAME; 



Explanation s The BY NAME option can only be used in a 
structure assignment. 

IEL0650I S NO STRUCTURE IN SOURCE OF , BYNAME , ASSIGNMENT. 

NO STRUCTURE IN SOURCE OF 'BYNAME' ASSIGNMENT. STATEMENT 
IGNORED. 



Example : 

DCL 1 A, 2 OR, 3 RE, 3 GR, 
1 B, 2 OR,, 3 RE, 3 BL; 
A=5,BY NAME; 



Explanation ; The BY NAME option has been used to qualify 
the assignment of a value that is not a structure. 



IEL0651I S D HAS WRONG STRUCTURE ORGANIZATION. 

STRUCTURE ORGANIZATION OF D IS NOT THE SAME AS 
TARGET. STATEMENT IGNORED. 

Explanation : Structures used in BYNAME assignment contain 
base elements with identical names but attributes which do 
not match. 

IEL0652I S INVALID USE OF D IN ARRAY 'INITIAL' IN THIS BLOCK. 

INVALID USE OF AGGREGATE D IN ARRAY 'INITIAL' IN THIS 
BLOCK. "INITIAL' ATTRIBUTE IGNORED. 



Example ; 

ECL ARRAY1 (8,9), 

ARRAY2 (8,9) INIT(ARRAYl) , 
ARRAY3 (8) INIT(ARRAY1 (*, 1) ) ; 



Explanation ; The INITIAL attribute for an array can 
specify initial values for the array elements on an 
individual basis only. The type of initialization 
attempted above can be achieved by an assignment 
statement- 



IEL0653I W 



RESULTS MAY BE UNDEFINED IN ASSIGNMENT TO 'REFER' 
STRUCTURE D. 
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ASSIGNMENT TO STRUCTURE D DECLARED WITH 'REFER* OPTION. 
RESULTS UNDEFINED IF 'REFER' EXTENTS CHANGED EY 
ASSIGNMENT. 



Example : 



BASED (PI), 2 B,2 C (X REFER B) ; 
BASED (P2), 2 P,2 C(Y REFER P); 



DCL 1 A 
1 S 
A=S; 

This becomes 

A.B = S-P; (ignored by the compiler 
A.C = S.C; for mapping of C in 
this assignment) 



Explanation : The values of the bounds or extents of the 
REFER items in both source and target structures are taken 
from the target before assignment. If these values do not 
match in source and target, the values of these extents or 
bounds in the target will be altered by the assignment, 
and will not correspond to the REFEB items assigned to the 
target. Therefore, in any subsequent references, the 
target is undefined. 



Programmer Response ; If the bounds or extents differ, 
they should be made to match prior to the assignment of 
the REFER items. The use of the BY NAME option may be 
convenient in the structure assignment once the REFER 
bounds or extents have been correctly set up. 



IEL0654I S 



DIMENSIONS OF D DO NOT MATCH TARGET:. 



NUMBER OF DIMENSIONS OF AGGREGATE D DOES NOT MATCH THE 
TARGET OF THE ASSIGNMENT OR DUMMY ARGUMENT. STATEMENT 
IGNORED. 



Example ; 



DCL A(5,6), B(5,6), C(5); 
A = B + C; 



Explanation ; The number of dimensions of an aggregate to 
be assigned must match the number of dimensions of the 
target aggregate. 



IEL0655I S 



BOUNDS OF D DO NOT MATCH TARGET. 



BOUNDS OF AGGREGATE D DO NOT MATCH THE TARGET OF THE 
ASSIGNMENT OR DUMMY ARGUMENT. STATEMENT IGNORED. 



Example ; 



DCL A(3,3), EU,4), C( 2; 5,-3 ;-l) ; 

A = A + B; (incorrect) 

A = E + C; (also incorrect) 



Explanation ; The bounds for each dimension of an 
aggregate to be assigned must match the bounds for each 
dimension of the target aggregate. 
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IEL0656I S STRUCTURING OF D DOES NOT MATCH TARGET. 

STRUCTURING OF D DOES NOT MATCH THE TARGET OF THE 
ASSIGNMENT OR DUMMY ARGUMENT. STATEMENT IGNORED. 



Example : 



DCL 1 A, 2 B, 2 C; 

1 P, 2 Q, 2 R, 2 S; 
A = P; 



Explanation ; Structures in a structure assignment must 
have identical structuring. 



IEL0657I S AGGREGATE D USED IN EXTENT SPECIFICATION. 

AGGREGATE D USED FOR EXTENT SPECIFICATION IN 'ALLOCATE' 
STATEMENT. STATEMENT IGNORED. 



Example : 



DCL X(*) CTL, 

1 A, 2 B, 2 C; 
ALLOCATE X(A); 



IEL0658I S NO MATCHING IDENTIFIERS FOR 'BYNAME* ASSIGNMENT. 

NO MATCHING IDENTIFIERS AT CORRESPONDING LEVELS IN THE 
STRUCTURES IN 'BYNAME' ASSIGNMENT. STATEMENT IGNORED. 



Example : 



ECL 1 A, 2 B, 2 C, 

1,X, 2 Y r 2 Z f 

1 P, 2 Q, 2 R; 
A = X, BY NAME; (incorrect) 
A = P + X, BY NAME; (also incorrect) 



Explanation : In order to use the BY NAME option in a 
structure assignment, the structure should have matching 
names at corresponding levels, otherwise no assignment can 
take place. 



IEL0659I U TOO MANY ACTIVE QUALIFIED REFERENCES. 

COMPILER RESTRICTION. TOO MANS QUALIFIED REFERENCES 
ACTIVE IN THIS STATEMENT. PHASE P. 



Example : 



DCL (A,B,C,...Z) (10); 
A,B,C, . .. .Z=A; 



Explanation : A qualified reference can result from the 
use of any of the following: 

1. An item declared BASED. 

2. An item declared DEFINED. 
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3. The first argument of the SUBSTR built-in function or 
pseudo variable. 

4. A subscripted item or array expression. 

5. A multiple concatenation operation. 

6. SUESCRIPTRANGE checking. 

A qualified reference is active only for the statement 
that contains it, unless it is the control variable of a 
do-loop, when it is active throughout the scope of the 
loop. The limit to the number of active qualified 
references is 32; this limit will be exceeded only if the 
statement with a qualified reference appears in a nest of 
do-loops with qualified control variables, or if the 
statement is a multiple assignment with many qualified 
references as targets, or if the statement is a 
stream I/O statement containing more than 32 items 
requiring active qualified references. 



Programmer Response ; Either simplify a multiple 
assignment or change do-loop control variables that are 
qualified references to non-qualified references* 



IEL0660I S [PROLOGUE CODE.] NON-CONNECTED ARGUMENT TO T. 

[PROLOGUE CODE.] NON-CONNECTED ARGUMENT TO BUILTIN 
FUNCTION T INVALID. STATEMENT IGNORED. 



Explanation ; STORAGE and CURRENT STORAGE built-in 
functions are only defined for variables which could 
legally appear in the INTO or FROM option of a 
record-oriented input/output statement. The INTO or FROM 
option of a record-oriented input/ output statement must 
refer to an identifier that represents a contiguous area 
of storage. 



IEL0671I W [PROLOGUE CODE.] DUMMY CREATED FOR ARGUMENT N TO ENTRY D. 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO ENTRY D DOES NOT 
MATCH ITS CORRESPONDING PARAMETER OR IS AN ISUB-DEFINED 
ARRAY. A DUMMY ARGUMENT HAS BEEN CREATED. 



Examp le; 



DCL X ENTRY (FIXED); 
CALL X(A) ; 



Explanation ; Whenever an argument does not match its 
parameter, the compiler generates a dummy argument that 
does match the parameter. On invocation of the entry 
point, the value of the argument is converted and 
assigned to the dummy argument. Similarly, when the 
argument is in iSUB-defined array, the compiler generates 
a dummy argument. On invocation of the entry point, 
the value of the argument is assigned to the dummy 
argument. 



IEL0672I W 



[PROLOGUE CODE.] ARGUMENT N TO T IGNORED. 



140 



*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT* REFER TO PISE 3 ••* 



tPROLOGOE CODE.] ARGUMENT NUMBER N TO BUILTIN FUNCTION T 
IS NOT REQUIRED FOR FLOATING POINT RESULT- ARGUMENT 
IGNORED. 



Example s 

A = DIV(B,C,5,2) ; 



Explanation ; A superfluous argument has been given in a 
reference to a built-in function. 



IEL0673I I [PROLOGUE CODE.] ARGUMENT N TO T IS NOT •COMPLEX*. 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO BUILTIN FUNCTION T 
NOT COMPLEX. ZERO IMAGINARY PART ASSUMED. 



Example s 



DCL A REAL; 

A = REAL (A) ; 



IEL0674I S INVALID ELEMENT EXPRESSION IN 'DO* OR *IF f . 

INVALID SPECIFICATION OF ELEMENT EXPRESSION IN , DO f OR 
•IF* STATEMENT. VALUE ONE ASSUMED FOR EXPRESSION. 



Example s 

1. LABEL; DO I = 1 TO LABEL; 

2. IF FILE1 = FILE2 THEN,...; 



Explanation s The expression in a DO or IF statement roust 

be a valid element expression which can be evaluated by 
the compiler. 



IEL0675I S INVALID ITERATIVE SPECIFICATION. 

INVALID ITERATIVE SPECIFICATION. NON-ITERATIVE 'DO' 
ASSUMED. 



IEL0676I I 



Example s 

DO FILE = 1 TO 4; 

[PROLOGUE CODE.] ARGUMENT N TO D ASSUMED TO BE ALIGNED. 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO ENTRY D IS OF TYPE 
•ENTRY" AND IS ASSUMED TO BE ALIGNED. 



IEL0677I S [PROLOGUE CODE] SOURCE OF ASSIGNMENT DOES NOT MATCH 
TARGET D. 

[PROLOGUE CODE] ATTRIBUTES OF SOURCE OF ASSIGNMENT 
STATEMENT CONFLICT WITH TARGET D. [STATEMENT IGNORED.] 
[RESULTS OF PROLOGUE UNDEFINED.] 
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Example : 

DCL LV LABEL VARIABLE, 

FV FILE VARIABLE; 
LV=FV; 

Explanation ; The variables LV and FV have unlike and 
unresolvable attributes . 



IEL0680I S 



ATTRIBUTES OF • REPEAT* EXPRESSION CONFLICT WITH THE 
CONTROL VARIABLE. 



ATTRIBUTES OF 'REPEAT* EXPRESSION CONFLICT WITH THE 
CONTROL VARIABLE. NON-ITERATIVE 'DO* ASSUMED. 



Example 



DCL P POINTER; 

DCL I FIXED BINARY; 

DO 1=1 REPEAT (P); 



IEL0681I S [PROLOGUE CODE.] ATTRIBUTES OF ARGUMENT N TO ENTRY D 
CONFLICT WITH PARAMETER. 

[PROLOGUE CODE.] ATTRIBUTES OF ARGUMENT NUMBER N TO ENTRY 
D CONFLICT WITH THE CORRESPONDING PARAMETER. STATEMENT 
IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example : 



DCL A FILE, 

X ENTRY (FLOAT); 
CALL X (A) ; 



Explanation s The compiler has detected a conflict between 
the attributes of an argument and its parameter which 
cannot be resolved by creating a dummy argument and 
performing a conversion. 



IEL0682I S [PROLOGUE CODE.] ARGUMENT N TO ENTRY D IS NOT 
•CONTROLLED*. 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO ENTRY D IS NOT 
•CONTROLLED* BUT THE CORRESPONDING PARAMETER IS. 
STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example : 



DCL A, 

F ENTRY (CONTROLLED) ; 
CALL E(A) ; 



Explanation ; A parameter with the CONTROLLED attribute 
must correspond to an argument with the CONTROLLED 
attribute. 



IEL0683I S 



[PROLOGUE CODE.] WRONG NUMBER OF ARGUMENTS TO T. 
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[PROLOGUE CODE.] WRONG NUMBER OF ARGUMENTS TO BUILTIN 
FUNCTION T. STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED.] 
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Example : 

SUBSTR(A,B,C,D); 



Explanation : A built-in function with either too few or 
too many arguments has been detected. 

IEL0684I S [PROLOGUE CODE.] INVALID DATA TYPE FOR ARGUMENT N TO T. 

[PROLOGUE CODE.] ARGUMENT NUMEER N HAS INCORRECT DATA TYPE 
FOR BUILTIN FUNCTION T. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example : 

DCL F FILE; 
A = SIN(F) ; 



IEL0685I S [PROLOGUE CODE.] MODE OF ARGUMENT N TO T IS INCORRECT. 

[PROLOGUE CODE.] THE MODE OF ARGUMENT NUMBER N TO BUILTIN 
FUNCTION T IS INCORRECT. STATEMENT IGNORED. [RESULTS OF 
PROLOGUE UNDEFINED.] 



Example : 

DCL A COMPLEX; 
E = CEIL (A); 



IEL0686I S [PROLOGUE CODE.] ARGUMENT N TO T IS NOT INTEGER CONSTANT. 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO BUILTIN FUNCTION T 
IS NOT AN INTEGER CONSTANT. STATEMENT IGNORED. [RESULTS 
OF PROLOGUE UNDEFINED.] 



Example : 

A = DECIMAL (E r C f D) 



IEL0687I S [PROLOGUE CODE.] CONSTANT OR FUNCTION OR TEMPORARY RESULJT 
HAS INVALID ATTRIBUTES FOR EXPRESSION. 

[PROLOGUE CODE.] CONSTANT OR FUNCTION OR TEMPORARY RESULT 
HAS INVALID ATTRIBUTES FOR EXPRESSION. STATEMENT 
IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Example ; 



L: 



A = 1; 

B = 2 + L; 



EC: PROC(Z) RETURNS (OFFSET); 
B = 2 + EC(1); 



IEL0688I S [PROLOGUE CODE.] ASSIGNMENT TO CONSTANT. 

[PROLOGUE CODE.] TARGET OF ASSIGNMENT IS A CONSTANT. 
STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



Part I: Compile-time (IEL) Messages 143 
*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 3 *** 



Example ; 

1 = A + B; 



Explanation ; The target of an assignment can never be a 
constant; it must always be a variable. 

IEL0689I S [PROLOGUE CODE.] SOURCE OE ASSIGNMENT DOES NOT MATCH 
TARGET . 

[PROLOGUE CODE.] ATTRIBUTES OF SOURCE OF ASSIGNMENT 
CONFLICT WITH TARGET. [STATEMENT IGNORED.] [RESULTS 
OF PROLOGUE UNDEFINED.] 

Example : 

DCL LV LABEL VARIABLE, 
FV FILE VARIABLE; 
LV = FV; 

Explanation ; The variables LV and FV have unlike, and 
unresolvable, attributes. 

IEL0690I S [PROLOGUE CODE.] OPERAND D INVALID IN ELEMENT EXPRESSION. 

[PROLOGUE CODE.] INVALID USE OF OPERAND D IN AN ELEMENT 
EXPRESSION. STATEMENT IGNORED. [RESULTS OF PROLOGUE 
UNDEFINED-] 



IEL0691I U 



Example ; 

ECL A (10), F FILE; 

a. READ FILE(F) SET(P) KEY (A + E) ; 

b. B = F + C; 

Explanation ; An element expression cannot refer to a 
structure or unsubscripted array. Arithmetic operations 
can never involve non-arithmetic data such as files, 
events, or locators. 

For graphic string data, values cannot be compared for 
other than = and -1= . 

LEVEL OF NESTING FOR 'DO', OR 'IF', OR 'SELECT* STATEMENT 
EXCEEDS N. 

COMPILER RESTRICTION. LEVEL OF NESTING FOR 'DC, OR 'IF*, 
OR 'SELECT' STATEMENT EXCEEDS N. 



IEL0692I S [PROLOGUE CODE.] ARGUMENT N TO ENTRY D INVALID. 

[PROLOGUE CODE.] ARGUMENT NUMBER N TO ENTRY D INVALID. 
STATEMENT IGNORED. [RESULTS CF PROLOGUE UNDEFINED.] 



Example ; 



ON CONDITION (OLD) 
CALL RENEW (OLD) ; 
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IEL0694I S [PROLOGUE CODE.] NO SELECTION POSSIBLE FOR 'GENERIC' NAME. 
[PROLOGUE CODE.] NO SELECTION POSSIBLE FOR 'GENERIC NAME. 

STATEMENT IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 

Example ; 

DCL A CHAR (2) , 

B FLOAT DEC, 

C FIXED BIN, 

GEN GENERIC 
(GN1 WHEN (CHAR,*,CPIX) , 
GN2 WHEN (*,*, FIXED BIN(31,0)), 

GN3 WHEN (CHAR, FLOAT DEC (16) , FIXED BIN(15,0)) r 
GN4 WHEN (*,*,*,*)); 

Explanation ; A reference to a generic name should contain 
arguments with attributes that match the generic 
descriptor list for one of the generic entry constants. 

IEL0695I S [PROLOGUE CODE.] OPERANDS OF COMPARE CONFLICT. 

[PROLOGUE CODE.] ATTRIBUTES OF OPERANDS IN AN EQUAL OR 
NOT- EQUAL OPERATION CONFLICT. STATEMENT IGNORED. 
[RESULTS OF PROLOGUE UNDEFINED.] 



Example ; 



L: 



DCL F FILE; 

IF L = F THEN.. 



IEL0697I S [PROLOGUE CODE] SOURCE OF ASSIGNMENT DOES NOT MATCH 
TARGET D. 

[PROLOGUE CODE] ATTRIBUTES OF SOURCE OF ASSIGNMENT 
STATEMENT CONFLICT WITH THE TARGET D. STATEMENT 
IGNORED. [RESULTS OF PROLOGUE UNDEFINED.] 



IEL0701I S 'FORTRAN" FUNCTION D NOT ALLOWED IN ARGUMENT. 

COMPILER RESTRICTION. 'FORTRAN' FUNCTION D NOT ALLOWED IN 
ARGUMENT. 'FORTRAN' OPTION IGNORED. 



Example ; 



DCL E ENTRY OPTIONS (FORTRAN) ; 
CALL X(E(A)) ; 



Explanation ; A function reference to a FORTRAN program is 
not permitted as an argument other than to a built-in 
function. 
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IEL0702I W 



'NOMAP' SPECIFIED. 
IN 1. 



MAPPING OF PARAMETER N TO D MAY DIFFER 



MAPPING OF PARAMETER N TO ENTRY D MAY DIFFER IN PL/I AND T 
BUT DUMMY PARAMETER NOT CREATED BECAUSE OF • NOMAP* OPTION. 



Programmer Response : Ensure either that the parameter and 
its corresponding argument are mapped identically in the 
two language implementations or that differences in 
mapping are allowed for in the descriptions (cr 
declarations) used in the two languages. 

IEL0703I W * NOMAP' SPECIFIED. MAPPING OF ARGUMENT N TO D MAY DIFFER 
IN T. 

MAPPING OF ARGUMENT NUMBER N TO ENTRY D MAY DIFFER IN PL/I 
AND T BUT DUMMY ARGUMENT NOT CREATED BECAUSE OF 'NOMAP' 
OPTION. 



Programmer Response : Ensure either that the argument and 
its corresponding parameter are mapped identically in the 
two language implementations or that differences in 
mapping are allowed for in the descriptions (or 
declarations) used in the two languages. 



IEL0704I S MORE THAN N ARGUMENTS TO T ENTRY D. 

COMPILER RESTRICTION. NUMBER OF ARGUMENTS TO T ENTRY D 
EXCEEDS N. EXCESS ARGUMENTS IGNORED. 



Explanation : The maximum number of arguments that can be 
passed to a FORTRAN or COBOL routine in a single 
invocation is 64. 



Programmer Response : Eliminate the excess number of 
arguments. If necessary and feasible, make these 
arguments known in both the invoking and invoked routine 
by declaring them STATIC EXTERNAL in PL/l and the 
equivalent to this in the invoked routine. 



IEL0705I S EXTENTS OF PARAMETER N TO T ENTRY D NOT FIXED. 

EXTENTS OF PARAMETER N TO T ENTRY D ARE NOT FIXED 
RESULTS OF EXECUTION UNDEFINED. 



Example : 



E: ENTRY (P) OPTIONS (FORTRAN) ; 
DCL P(*,*); 



Explanation : All bounds and extents of parameters to 
entry points invoked from COBOL or FORTRAN must be 
specified as decimal integer constants. 



I EL 07061 I T MAPPING USED FOR DUMMY ARGUMENT N TO D. 

T MAPPING USED FOR DUMMY ARGUMENT NUMBER N TO ENTRY D, 
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Example : 



DCL 1 A, 

2 B CHAR(l), 
2 C FIXED BINC31.0), 
CC ENTRY OPTIONS (COBOL); 
CALL CC(A+I); 



Explanation s COEOL or FORTRAN mapping has been used for a 
dummy argument that has been created for an argument that 
is to be passed to a COBOL or FORTRAN routine. 

IEL0707I I PL/I MAPPING USED FOR DUMMY ARGUMENT N TO D. 

PL/I MAPPING USED FOR DUMMY ARGUMENT NUMBER N TO ENTRY D. 

Example ; 

DCL FF ENTRY OPT IONS ( FORTRAN , 

NOMAPIN(ARGD), 
A(10,10); 
CALL FF(A+I); 

Explanation ; A dummy argument is created for this 
argument according to normal PL/I rules with the NOMAPOUT 
option. The explicit use of the NOMAPIN option will 
combine with NOMAPOUT to produce the effective 
specification of the NOMAP option. 

IEL0708I I DUMMY CREATED FOR ARGUMENT N TO T ENTRY D. 

MAPPING OF ARGUMENT NUMBER N TO ENTRY D MAY DIFFER IN PL/I 
AND T. DUMMY ARGUMENT CREATED. 



Example ; 



DCL 1 A r 

2 B CHAR(l), 
2 C FIXED BIN(31,0), 
X(10,10) 

COB ENTRY OPTIONS (COBOL) r 
FORT ENTRY OPTIONS (FORTRAN) ; 

CALL COB (A); 

(message produced for A) 

CALL FORT(X); 

(message produced for X) 



IEL0709I I DUMMY CREATED FOR PARAMETER N TO T ENTRY D. 

MAPPING OF PARAMETER N TO ENTRY D MAY DIFFER IN PL/I AND 
T. DUMMY PARAMETER CREATED. 



Example ; 



Fs ENTRY (X) OPTIONS (FORTRAN) ; 

C: ENTRY (A) OPTIONS (COBOL ) ; 
DCL 1 A, 

2 B CHAR(l), 

2 C FIXED BIN (31,0), 
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X(10,10); 



IEL0710I E D CONTAINS DATA INVALID FOR 'COBOL** 

RECORD VARIABLE D FOR •COBOL* FILE CONTAINS , AREA t OR 
•BIT' DATA WITH NO EQUIVALENT IN 'COBOL 1 . PL/I MAPPING 
ASSUMED FOR VARIABLE. 



Example : 

DCL A BIT (8), F FILE 

ENV (COBOL ) RECORD; 

READ FILE (F) INTO (A) ; 



Explanation : A PL/I data type specified fpx a COBOL File 
has no equivalent in COBOL. 



IEL0711I S T IGNORED FOR 'CALL' WITH TASKING OPTION. 

T OPTION IGNORED FOR "CALL 1 WITH TASKING OPTION. 

Example : 

DCL A ENTRY OPTIONS (COBOL) ; 
CALL A TASK; 

Explanation : Interlanguage subroutines cannot be tasks. 

IEL0712I W PL/I MAPPING ASSUMED FOR ARRAY RECORD VARIABLE. 

RECORD VARIABLE IS AN ARRAY. PL/I MAPPING ASSUMED FOR 
VARIABLE. 



Example : 



DCL A(8), F FILE 

ENV (COBOL....) RECORD; 
READ FILE (F) INTO (A) ; 



Explanation : A PL/I data type specified for a COBOL file 
has no equivalent in COBOL 



IEL0713I S •COBOL' FILE D INVALID IN ASSIGNMENT OR AS ARGUMENT. 

USE OF COBOL FILE D IN ASSIGNMENT OR AS AN ARGUMENT IS 
INVALID. •COBOL* OPTION WILL NOT APPLY TO TARGET. 



Example ! 



DCL PROC ENTRY (FILE) , 

COBFIL FILE ENV (COBOL. 
CALL PROC (COB FILE) ; 



.); 



IEL0714I W D CONTAINS DATA INVALID FOR •COBOL*. 

RECORD VARIABLE FOR 'COBOL* FILE CONTAINS ELEMENT WITH NO 



148 

*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 3 *** 



DIRECT EQUIVALENT IN ■ COBOL* 
VARIAELE. 



•COBOL* MAPPING ASSUMED FOR 



Example ; 



DCL A FIXED BIN (15,6), 

F FILE ENV (COBOL) RECORD; 

READ FILE (F) INTO (A) ; 



Explanation s "A" has fractional precision which is not 
available for fixed binary (COMPUTATIONAL) variables in 
COBOL . 



IEL0715I E STATEMENT INVALID FOR 'COBOL' FILE D. 

STATEMENT INVALID FOR COBOL FILE D. 
FOR RECORD. 



PL/I MAPPING ASSUMED 



Example ; 



DCL F FILE ENV (COBOL); 
DELETE FILE(F); 



IEL0716I E 'SET* OPTION INVALID FOR 'COBOL' FILE D. 

•SET* OPTION ON 'READ' STATEMENT INVALID FOR COBOL FILE D. 
PL/I MAPPING ASSUMED FOR RECORD. 



Explanation ; Locate mode input/output is not permitted 
for a "COBOL' file. Move mode must be used. 



IEL0717I E 'EVENT' OPTION INVALID FOR 'COBOL* FILE D. 

•EVENT' OPTION INVALID FOR COBOL FILE D WHEN PL/I AND 

COBOL MAPPING MAY DIFFER. PL/I MAPPING ASSUMED FOR 
RECORD. 



Example ; 

DCL F FILE ENV (COBOL), 

1 R, 

2 S CHAR(l) 

2 T FIXED EIN(31,0); 
READ FILE (F) INTO (R) EVENT (EV) ; 



Explanation ; The EVENT option is permitted only if it can 
be deduced at compile-time that the mapping of the record 
will be the same in PL/l and COBOL. 



IEL0720I E ARGUMENT N TO D CONTAINS DATA INVALID FOR T. 

ARGUMENT N TO ENTRY D CONTAINS 'AREA' OR 'BIT' DATA WITH 
NO EQUIVALENT IN T. PL/I MAPPING ASSUMED FOR ARGUMENT IF 
AGGREGATE. 



Example ; 
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DCL I BIT (10), E ENTRY 
EXTERNAL OPTIONS (FORTRAN) ; 
CALL E(I); 



Explanation s An argument which has no direct equivalent 
in COBOL or FORTRAN has been encountered in a CALL 
statement or function reference to invoke a COBOL or 
FORTRAN routine. Note that arguments with the attributes 
BIT (8) and BIT (32) are acceptable to FORTRAN. 



IEL0721I E 



PARAMETER N TO D CONTAINS DATA INVALID FOR T. 



PARAMETER N TO ENTRY D CONTAINS 'AREA' OR 'BIT' DATA WHICH 
HAS NO EQUIVALENT IN T. PL/I MAPPING ASSUMED FOR 
PARAMETER IF AGGREGATE. 



Example : 



E: ENTRY (X,Y,Z) OPTIONS (COBOL) 
DCL Y BIT(8); 



Explanation ; A parameter which has no direct equivalent 
in COBOL or FORTRAN has been encountered in a PROCEDURE or 
ENTRY statement invoked from a COBOL or FORTRAN routine. 



IEL0722I E 



ARGUMENT N TO •COBOL' ENTRY D IS AN ARRAY. 



ARGUMENT N TO ENTRY D IS AN ARRAY WHICH IS INVALID FOR 
, COEOL f . PL/I MAPPING ASSUMED FOR ARGUMENT. 



Example ; 



DCL E ENTRY EXTERNAL OPTIONS (COBOL), 
1(8) FIXED BIN; 
CALL E(I); 



Explanation ; COBOL data types do not include the 
equivalent of PL/I arrays. 



IEL0723I E 



PARAMETER N TO •COBOL 1 ENTRY D IS AN ARRAY. 



PARAMETER N TO ENTRY D IS AN ARRAY WHICH IS INVALID FOR 
• COBOL • . PL/I MAPPING ASSUMED FOR PARAMETER. 



Example : 



E; ENTRY (A,B,C) OPTIONS (COBOL); 
DCL A (8) FIXED BIN; 



Explanation ; COBOL data types do not include the 
equivalent of PL/ I arrays. 



IEL0724I W 



DATA IN ARGUMENT N TO D INVALID FOR 1. 
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ARGUMENT NUMBER N TO ENTRY D CONTAINS ELEMENT WITH NO 
DIRECT EQUIVALENT IN T. 
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Example : 



DCL E ENTRY EXTERNAL t FORTRAN ) ; 
DCL I FIXED EIN (10,6); 
CALL E(I) ; 



Explanation ; 'I* should have the precision (n,0) 



IEL0725I W DATA IN PARAMETER N TO D INVALID FOR 1. 

PARAMETER N TO ENTRY D CONTAINS ELEMENT WHICH HAS NO 
DIRECT EQUIVALENT IN 1. 



Example : 



E: ENTRY (I,J,K) OPTIONS (COEOL) 
DCL I FLOAT DEC (20); 



Explanation : COBOL does not implement extended precision 
floating-point variables, but only variables with short 
precision (COMPUTATIONAL- 1) or long precision 
(COMPUTATIONAL- 2) . 



IEL0726I I EXTENDED PRECISION ITEM FOR D VALID ONLY FOR ■ FORTRAN • H 
PROGRAMS. 

AN ARGUMENT OR PARAMETER OR RETURNED VALUE FOR ENTRY D HAS 
EXTENDED PRECISION. VALID ONLY FOR 'FORTRAN* PROGRAMS 
COMPILED BY THE 'FORTRAN' H COMPILER. 



Example : 



DCL E ENTRY EXTERNAL OPT ION S( FORTRAN ) ; 
DCL I FLOAT BIN (60); 
CALL E(I); 



IEL0727I S PARAMETER N TO T ENTRY D MUST NOT BE 'CONTROLLED*. 

PARAMETER N TO ENTRY D HAS 'CONTROLLED' STORAGE CLASS WITH 
NO EQUIVALENT IN T. RESULTS OF EXECUTION UNDEFINED. 



Example : 



ENTRY (I,J) OPTIONS (COBOL); 
DCL J CONTROLLED; 



IEL0728I I DATA TYPE RETURNED BY D INVALID IN 'FORTRAN'. 

DATA TYPE OF RETURNED VALUE FROM PL/ I ENTRY D HAS NO 
DIRECT EQUIVALENT IN 'FORTRAN' BUT ENTRY CAN BE INVOKED AS 
A FUNCTION. 



Explanation : This message is printed if a value returned 
by a function is arithmetic with a precision other than 
(n,0) or is a fixed-length character string with a length 
greater than 255. 
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IEL0729I S 



DATA TYPE RETURNED BY D INVALID IN •FORTRAN*. 



DATA TYPE OF RETURNED VALUE FROM 'FORTRAN 1 FUNCTION D HAS 
NO DIRECT EQUIVALENT IN 'FORTRAN'. 



Explanation : This message is printed if the returned 
value is arithmetic with a precision other than (n,0) or 
is a fixed-length character string with a length greater 
than 255- 



IEL0730I S 



ARGUMENT N TO T ENTRY D IS NOT 'CONNECTED'. 



ARGUMENT N TO T ENTRY D IS NOT 'CONNECTED' AND THE 'NOMAP' 
OPTION IS SPECIFIED. RESULTS OF EXECUTION UNDEFINED. 



Example ; 



DCL 1 A(3) , 2 B, 3 C, 2 D, 

3 A ENTRY EXTERNAL OPTIONS 
(COBOL, NOMAP) ; 
CALL E (B); 



Explanation : An argument must occupy a contiguous area of 
storage when passed as a parameter to an invoked routine. 



IEL0731I I 



ARGUMENT N TO T ENTRY D ASSUMED TO BE 'CONNECTED' 



ARGUMENT PASSED TO UNCONNECTED PARAMETER N OF T ENTRY D IS 
ASSUMED TO BE CONNECTED. 



Example : 



E: ENTRY (A,B,D) OPTIONS 
(COBOL, NOMAP); 
DCL 1 A(3) , 2 B, 3 C, 2 D, 
3 E; 



Explanation : A parameter must be a variable that occupies 
a contiguous area of storage. 



IEL0732I I 



DATA TYPE RETURNED BY D INVALID IN 'FORTRAN*. 



DATA TYPE OF RETURNED VALUE FROM PL/I ENTRY D IS INVALID 
FOR • FORTRAN •. ENTRY CANNOT BE INVOKED AS A FUNCTION. 



Explanation : If the returned value is a character string, 
it should be fixed-length; if it is a bit string, it 
should be BIT(8) or BIT(32) . 



IEL0733I W 



DATA TYPE RETURNED BY D INVALID IN 'FORTRAN'. 
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DATA TYPE OF RETURNED VALUE FROM 'FORTRAN' FUNCTION D IS 
INVALID FOR 'FORTRAN'. 



Explanation : If the returned value is a character string, 
it should be fixed-length; if it is a bit string, it 
should be BIT(8) or BIT(32). 
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IEL0734I E ARGUMENT N TO D NOT CORRECTLY ALIGNED FOR •FORTRAN*. 

ARGUMENT N TO ENTRY D IS NOT CORRECTLY ALIGNED FOR 
•FORTRAN* AND THE 'NOMAP 1 OPTION IS SPECIFIED. RESULTS OF 
EXECUTION UNDEFINED. 



Example ; 



DCL E ENTRY EXTERNAL 

OPTIONS (FORTRAN, NOMAP) , 
I UNALIGNED; 
CALL E(I)j 



IEL0735I W ARGUMENT N TO D NOT CORRECTLY ALIGNED FOR T. 

ARGUMENT N TO ENTRY D IS AN ELEMENT WHICH MAY NOT BE 
CORRECTLY ALIGNED FOR T. NO DUMMY ARGUMENT CREATED. 



Example ; 

DCL 1 A UNALIGNED, 

2 B BIT(5), 

2 C BIT (27) , 
FF ENTRY OPTIONS (FORTRAN) ; 
CALL FF (C) ; 
/* C IS AN UNALIGNED ELEMENT */ 

Explanation : Although, according to PL/I rules, a dummy 
argument is not created for an element argument, the 
alignment of the argument may not be acceptable as a 
parameter to a COBOL or FORTRAN routine, and an addressing 
interrupt may occur when the routine is invoked. 

IEL0736I E STRUCTURE ARGUMENT N TO D INVALID FOR •FORTRAN'. 

ARGUMENT N TO ENTRY D IS A STRUCTURE WHICH IS INVALID FOR 
•FORTRAN 1 . PL/I MAPPING ASSUMED FOR ARGUMENT. 



Example ; 



ECL E ENTRY EXTERNAL 

OPTIONS (FORTRAN) , 
1 1,2 J, 2 K; 
CALL E (I) ; 



Explanation ; FORTRAN data types do not include the 
equivalent of PL/ I structures. 



IEL0737I E STRUCTURE PARAMETER N TO D INVALID FOR •FORTRAN'. 

PARAMETER N TO ENTRY D IS A STRUCTURE WHICH IS INVALID FOR 
•FORTRAN*. PL/I MAPPING ASSUMED FOR PARAMETER. 



Explanation : FORTRAN data types do not include the 
equivalent of PL/I structures. 



IEL0738I I D CANNOT BE INVOKED AS FUNCTION FROM •FORTRAN*. 

ENTRY D HAS NO PARAMETERS. THE ENTRY CANNOT EE INVOKED AS 
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A FUNCTION PROM 'FORTRAN*. 



Explanation s An entry point in PL/I without parameters 
can only be invoked from FORTRAN by a CALL statement. 



IEL0739I S D HAS NO ARGUMENTS. •FORTRAN 1 OPTION IGNORED. 

FUNCTION D HAS NO ARGUMENTS. 'FORTRAN* OPTION IGNORED. 



Explanation : A FORTRAN function cannot be invoked from a 
PL/l function reference that does not include an argument. 



IEL07U0I S 



D CANNOT BE A FUNCTION. 

•COBOL* OR •ASSEMBLER* ENTRY D CANNOT BE INVOKED AS 
A FUNCTION. INTERLANGUAGE OPTION IGNORED. 

Example s 

DCL SUB ENTRY OPTIONS (COBOL) ; 
BCL (A,B); 
A= SUB(B) ; 

Explanation s A COBOL or ASSEMBLER procedure cannot be 
invoked as a function by a PL/I program. 



IEL0741I U D CANNOT BE MAPPED CORRECTLY. 

COMPILER RESTRICTION. AGGREGATE D CANNOT BE MAPPED 
CORRECTLY- COMPILATION WILL BE TERMINATED AFTER 
PHASE *IQ'. 



Example ; 



DCL A(32000:32010, 32000:32010) 
CHAR (1000) ; 

Explanation s The size of the offset byte address from the 
virtual origin of an aggregate cannot exceed (2 a *»)-l. 

IEL0742I U AGGREGATE D EXCEEDS MAXIMUM LENGTH. 

COMPILER RESTRICTION. AGGREGATE D EXCEEDS MAXIMUM LENGTH. 
COMPILATION WILL EE TERMINATED AFTER PHASE *IQ* . 



Example s 

DCL A (256,256,256) FIXED BINARY; 



Explanation s The size of the offset byte address from the 
virtual origin of an aggregate cannot exceed (2 24 »)-l. 
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IEL0743I S 



ARGUMENT N TO D INVALID. 



COMPILER RESTRICTION. ARGUMENT N TO ENTRY D IS AN ADJUSTABLE 
STRING AGGREGATE. RESULTS OF EXECUTION UNDEFINED. 

Explanation ; If an array or structure expression is used as 
the argument to a function procedure or subroutine procedure, 
then the length of any string expression contained in it must 
be available to the compiler during compilation. Therefore, 
only constant-length strings can be used or the corresponding 
parameter descriptor must specify the string length. 



IEL0758I W 



ARGUMENT N OF D HAS INVALID VALUE. 



COMPILER RESTRICTION. VALUE OF ARGUMENT N OF BUILT-IN 
FUNCTION 'T' IS OUTSIDE THE PERMITTED RANGE. ARGUMENT 
REPLACED BY IMPLEMENTATION MAXIMUM PRECISION. 

Example ; 

DECLARE (A,B,C) FIXED DECIMAL (10,0); 
C=MULTIPLY (A,B,18,4); 

Explanation ; The implementation maximum precision for fixed 
decimal is 15; the third argument is replaced by 15. 

Programmer Response ; Change the source so that the specified 
argument is not greater than: 

15 for FIXED DECIMAL results. 
31 for FIXED BINARY results. 
33 for FLOAT DECIMAL results. 
109 for FLOAT BINARY results. 



IEL0759I S 



INVALID USE OF FETCHED ENTRY CONSTANT D. 



INVALID USE OF FETCHED ENTRY CONSTANT D. FETCHED PROCEDURES 
MAY BE SPECIFIED ONLY IN 'FETCH 1 OR 'RELEASE* STATEMENTS OR AS 
ENTRIES IN FUNCTION OR SUBROUTINE REFERENCES. 

Example ; 

DCL F1 EXT ENTRY; 

DCL F2 ENTRY INIT (F1); 

FETCH F1; 

F2=F1; 

Explanation : F1 has been used invalidly in the declaration of 
F2 and in the assignment to F2. The assignment will be ignored 
and the INIT value ignored. (This leaves F2 uninitialized.) 



IEL0760I E 



BIT VALUE ZERO ASSUMED IN 'UNTIL' EXPRESSION, 



VARIABLE IN 
BIT STRING. 
ASSUMED. 



'UNTIL' EXPRESSION CANNOT BE CONVERTED TO 
BIT CONSTANT OF LENGTH ONE AND VALUE ZERO 
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Example : 



DCL P POINTER; 
EO UNTIL(P); 



Explanation : In the example, pointer P cannot be 
converted to a bit string. 



IEL0761I E VARIABLE IN CONDITIONAL EXPRESSION CANNOT BE CONVERTED 
TO EIT STRING. 

VARIABLE IN CONDITIONAL EXPRESSION CANNOT EE CONVERTED 
TO EIT STRING. BIT CONSTANT OF LENGTH AND VALUE ONE 
ASSUMED. 



Example 

1. DCL F FILE; 
IF F THEN X=Y; 

2. DCL F FILE; 
SELECT ; 
WHEN(F) X=Y; 

3. DCL F FILE; 

DO 1=1 WHILE (F); 

<*. DCL F FILE; 

EO 1=1 UNTIL (F); 



Explanation : Only string and arithmetic element variables 
and constants are permitted in the conditional clause of 
an IF or WHEN statement or WHILE or UNTIL expression. 



IEL0762I W 



TOO FEW ARGUMENTS IN CALL TO D. 

FEWER ARGUMENTS THAN PARAMETERS FOR CALL TO 
•ASSEMBLER 1 PROCEDURE D. 

Example : 

DCL P ENTRY (FIXED, FIXED) OPTION S( ASSEMBLER ) ; 
CALL P(A); 

Explanation : An assembly language external procedure has 
been invoked with fewer arguments than the number of 
parameters to the corresponding DECLARE statement. 



IEL0763I E 



NEGATIVE SECOND ARGUMENT TO 'BIT* OR "CHAR'. 

NEGATIVE SECOND ARGUMENT TO 'BIT* OR , CHAR f BUILTIN 
FUNCTION. ZERO ASSUMED. 

Example : 

PUT LIST(BIT(I,-3)) ; 

Explanation : The second argument to the *BIT' or 'CHAR* 
built-in function specifies the string length for the 
converted first argument. This length cannct be negative. 
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IEL0764I E LENGTH OF STRING OPERATION RESULT EXCEEDS N. 

COMPILER RESTRICTION. LENGTH OF RESULT OF STRING 
OPERATION EXCEEDS N. LENGTH OF N ASSUMED. 



Example : 

DCL (A f B) CHAR (32767); 
A=A||E; 

Explanation ; A character string cannot exceed 32767 
characters in length and a graphic string cannot exceed 
16383 graphics in length. 

IEL0765I S NON-CONSTANT VALUE IN STATIC INITIAL FOR D IN THIS BLOCK. 

NON-CONSTANT VALUE IN A STATIC 'INITIAL' SPECIFICATION FOR 
VARIABLE D IN THE BLOCK BEGINNING WITH THIS STATEMENT. 
'INITIAL' SPECIFICATION IGNORED. 

Example : 

ECL X(2) STATIC INITIAL( (X)l) ; 



Explanation : Only constants may appear in the INITIAL 
attribute for STATIC variables. 



IEL0766I E 'REPEAT" STRING RESULT EXCEEDS MAXIMUM LENGTH. 

COMPILER RESTRICTION. STRING RESULT FROM 'REPEAT' BUILTIN 
FUNCTION GREATER THAN ALLOWED MAXIMUM LENGTH. ZERO 
REPETITION FACTOR ASSUMED. 



Example s 



REPEAT ('XXX' ,40000); 



Explanation : The result should not produce a string 
greater than 32,767 characters (or bits) in length. 



IEL0767I E NEGATIVE REPETITION FACTOR FOR 'REPEAT'. 

NEGATIVE REPETITION FACTOR SPECIFIED FOR 'REPEAT' BUILTIN 
FUNCTION. ZERO REPETITION FACTOR ASSUMED. 



Example : 



REPEAT (' XXX ',-2); 



IEL0768I W CONSTANT SPECIFIED WHERE EXPRESSION EXPECTED. 

CONSTANT SPECIFIED WHERE EXPRESSION EXPECTED. FLOW OF 
CONTROL WILL BE UNCONDITIONAL. 



Example : 

IF 1 THEN 
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EliSE • • • » 
(The THEN clause will always be executed.) 

IF THEN . . . ; 

EXiSE • • • S 

(The ELSE clause will always be executed.) 

DO WHILE (1); 
(The loop will always be executed and may be permanent.) 

EO WHILE (0) ; 
(The loop will never be executed.) 

DO UNTIL(l); 
(The loop will be executed once and only once.) 

DO UNTIL(O); 

(The loop will be executed repeatedly and may be permanent.) 

SELECT; 
WHEN(l) ...; 

OTHERWISE 
END; 

(The WHEN unit will be executed.) 

SELECT; 
WHEN(O),...; 
OTHERWISE...; 
END; 

(The OTHERWISE unit will be executed.) 

Explanation ; A constant has been supplied in an IF 
statement* a WHILE or UNTIL expression, or in a WHEN 
statement (there being no SELECT expression). Execution 
of the statement can result in one flow of control only. 

IEL0769I S AREA VARIABLE FOR OFFSET D INVALID. 

COMPILER RESTRICTION. SPECIFICATION OF AREA VARIABLE 
ASSOCIATED WITH OFFSET D NOT VALID IN THIS STATEMENT. 

Example ; 

ECL O OFFSET (A), 

A AREA BASED (P) ; 



O -> A = X; 



Explanation ; See the relevant section of the language 
reference manual for this compiler for an explanation of 
the language restrictions concerning the use cf qualified 
AREA variables. 
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IEL0775I W CONSTANT ITERATION FACTOR EXCEEDS 65 , 535. 

COMPILER RESTRICTION. COMPILER ITERATION FACTOR IN 
INITIAL ATTRIBUTE FOR STATIC ARRAY CANNOT EXCEED 65,535. 
FIRST 65,535 ELEMENTS INITIALIZED. 

Example ; 

DECLARE 1 A (4800) STATIC, 

2 B(20) FIXED DEC (1,0) 
INIT ((96000) 1) ; 

Explanation ; The iteration factor in an INITIAL list for 
an array cannot exceed 65,535. Only the first 65,535 
elements of the array will be initialized. 

Programmer Response ; Multiple iteration factors can be 
specified, each less .than 65,536. For example, the above 
INITIAL attribute can be coded: INIT ((64000)1,(32000)1); 

IEL0776I E CONSTANT SUBSCRIPT OF D OUT OF RANGE. 

VALUE OF CONSTANT SUBSCRIPT FOR ARRAY D IS OUT OF RANGE 
BUT HAS NOT BEEN REPLACED. 



IEL0777I W 



IEL0778I S 



Example ; 

(SUBSCRIPTRANGE) ;PIG:PROC; 

DCL A ( 2 , 3 ) ; 
A(6,3) = 1; 

END; 

TOO MANY ITEMS IN 'INITIAL' LIST FOR D. 

TOO MANY ITEMS IN 'INITIAL' LIST FOR ARRAY D. REDUNDANT 
ITEMS IGNORED. 

Example ; 

ECL A (2) INIT (1,2,3); 

•ISUB' VARIABLE FOR D OUT OF RANGE. 

•ISUB" VARIABLE FOR DEFINED ARRAY D OUT OF RANGE. RESULTS 
OF EXECUTION UNDEFINED. 



Example : 



DCL A(10,10) f 
B(4,4) 
DEFINED A(1*1SUB,3SUB); 



Explanation ; The 3SUE variable is a reference to the 
third dimension of an array having only two dimensions. 



IEL0779I S INVALID REPETITION FACTOR IN 'INITIAL* FOR D. 

ZERO OR NEGATIVE REPETITION FACTOR IN 'INITIAL' ATTRIBUTE 
FOR ARRAY D. REPETITION FACTOR IGNORED. 

Example ; 

DCL A110) INIT((0)1,(-2)1); 
IEL0787I W INITIAL VALUE OF ITERATIVE SPECIFICATION OUT OF RANGE. 
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INITIAL VALUE OF ITERATIVE SPECIFICATION IS OUTSIDE THE 
RANGE OF THE 'BY* AND •TO' EXPRESSIONS. LOOP WILL NOT BE 
EXECUTED. 



Example ; 

1. DO I = 1 BY -2 TO 10; 

2. DO I = 1 BY 3 TO -10; 

IEL0798I S INVALID IDENTIFIER IN CHECK LIST. 

INVALID IDENTIFIER IN CHECK LIST. IDENTIFIER IGNORED. 

Example ; 

(CHECK (F)): P:PROC; 

DCL F FILE; 

Explanation : The identifier in the check list must be a 
variable, or a label or entry constant. 

Programmer Response ; Remove the invalid identifier from 
the name list in the CHECK condition prefix. 

IEL0799I W AREA ASSOCIATED WITH OFFSET D MAY EE INVALID FOR LOCATOR 
CONVERSION IN ■ RETURN • . 

COMPILER RESTRICTION. AREA ASSOCIATED WITH OFFSET D 
INVALID FOR LOCATOR CONVERSION FOR 'RETURN* STATEMENT. 
•RETURN' EXPRESSION WILL BE IGNORED IF THE INVALID 
COMBINATION OF •RETURN* AND •ENTRY' IS USED. 

Example ; 

P: PROC RETURNS (OFFSET(A)); 
Q: ENTRY RETURNS (POINTER); 

DCL A AREA BASED, 
PTR POINTER, 

RETURN (PTR); 

Explanation ; If locator conversion is required in a RETURN 
statement, the offset must have an associated area. The 
area must be unsubscripted, it cannot be defined; if it is 
based it must be based on an explicit non-based, 
non-defined unsubscripted pointer. 

Programmer response : Ensure that the combination of return 
expression and entry type never requires locator 
conversion to be performed. 

IEL0800I S INVALID SPECIFICATION IN 'WAIT* . 

INVALID SPECIFICATION OF NUMBER OF EVENTS IN •WAIT" 
STATEMENT. SPECIFICATION IGNORED. 



Example: 



DCL (E1,E2) EVENT, F FILE; 



WAIT (E1,E2) (F); 
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Explanation : The number of events specification in the 
WAIT statement must be convertible to a FIXED BINARY 
integer. 



IEL0801I S 



IEL0802I S 



INVALID EXPRESSION IN 'DELAY'. 

INVALID EXPRESSION IN 'DELAY' STATEMENT. ZERO ASSUMED. 

Example : 

DCL F FILE; 
DELAY (F); 

Explanation : The expression in the DELAY statement must be 
convertible to a FIXED BINARY integer. 

INVALID EXPRESSION IN 'RETURN'. 

INVALID EXPRESSION IN 'RETURN' STATEMENT. EXPRESSION 
IGNORED. 

Example : 

DCL C CONDITION; 
RETURN (C) ; 

Explanation : The expression in a RETURN statement must be 
problem data or locator, area, label, event, file, or task 
program control data. 



IEL0803I S 



INVALID •DISPLAY' EXPRESSION. 

•DISPLAY" EXPRESSION IS NOT A VALID DATA TYPE OR ELEMENT 
EXPRESSION. STATEMENT IGNORED. 

Example : 

DCL F FILE; 
DISPLAY (F); 

Explanation : The argument of a DISPLAY statement must be 
an element expression that can be converted to character 

form. 



IEL0804I W 'DISPLAY" STRING LENGTH EXCEEDS 72. 

STRING LENGTH FOR 'DISPLAY' EXCEEDS 72 CHARACTERS. 
TERMINAL MAY NOT SUPPORT THIS [FIRST N CHARACTERS USED]. 



Example : 



DCL A CHAR (150) 
ECL B CHAR (80); 
DISPLAY (A) ; 
DISPLAY (B); 



Explanation : The first 126 characters of a DISPLAY 
expression will always be transmitted to the terminal, but 
if the terminal is restricted to a length of 72 bytes, 
only the first 72 characters will be printed . If the 
length of the DISPLAY expression is more than 12 6, only 
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the first 126 characters will be printed, even if there is 
no restriction on the terminal used by the system.. 

The example above would result in the full text of the 
message being produced for DISPLAY (A) , but the te^tt of the 
message enclosed within square brackets will not be 
produced for DISPLAY (B). 



IEL0805I S 



'REPLY* CONTAINS NON-ELEMENT EXPRESSION, 



•REPLY' EXPRESSION IS NOT A CHARACTER STRING EXPRESSION. 
•REPLY* OPTION IGNORED. 



Example : 



DCL ABC (2 ,3) FIXED BINARY; 
DISPLAY ( •MESSAGE* ) REPLY (ABC) ; 



Explanation ; The expression in the REPLY statement is not 
a character string variable. The REPLY option is ignored. 
If an EVENT option is present, this too is ignored. 



IEL0806I E 



•REPLY' STRING LENGTH EXCEEDS N. 



COMPILER RESTRICTION. STRING LENGTH FOR 'REPLY* TOO LONG. 
FIRST N CHARACTERS USED. 



Example ; 



BCL R CHAR (100); 

DISPLAY( 'MESSAGE' ) REPLY (R) ; 



Explanation ; The length of the REPLY expression is more 
than 72 bytes. Only the first 72 bytes of the message are 
transmitted. 



IEL0808I W T NOT ENABLED. 'SIGNAL' IGNORED. 

T CONDITION NOT ENABLED. STATEMENT IGNORED. 



Example ; 



(NOZERODIVIDE) : PIG:PROC; 

SIGNAL ZERCDIVIDE; 
END; 



Explanation ; The SIGNAL statement for a disabled 
condition acts as a null statement. 



IEL0809I W 'CHECK' NOT ENABLED FOR D 

•CHECK' CONDITION NOT ENABLED FOR VARIABLE D IN SIGNAL 
STATEMENT. VARIABLE IGNORED. 



Example ; 

(CHECK(A f B)) :PIG:PROC; 
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SIGNAL CHECK(A,B,C); 
END; 



IEL0810I S INVALID EXPRESSION IN 'PRIORITY' OPTION. 

INVALID EXPRESSION IN 'PRIORITY' OPTION. OPTION IGNORED. 



Explanation s The expression in the PRIORITY option roust 
represent an integer value with the precision (15 ,0). 



iel0811i s invalid specification of 'ignore' expression. 

invalid specification of 'ignore' expression. value one 
Assumed. 



Example ; 



ECL F FILE; 

READ FILE (F) IGNORE (F) ; 



Explanation ; The expression in the IGNORE option must 
represent an arithmetic integer value. 



IEL0812I S 'KEY* SPECIFICATION INVALID. 

'KEY* SPECIFICATION INVALID. RESULTS OF EXECU1ION 
UNDEFINED. 



Example ; 

ECL F FILE, A (5) FIXED; 
READ FILE ( F ) I NTO (A) KEY ( A ) ; 



Explanation ; The expression in the KEY option must 
represent a valid key derived from a character string or 
an arithmetic variable. 



IEL0816I S ATTRIBUTES OF D CONFLICT WITH USE. 

CONFLICT BETWEEN ATTRIBUTES OF FILE D AND ITS USE IN THIS 
STATEMENT. STATEMENT IGNORED. 



Example ; 

DCL F FILE OUTPUT; 
REAE FILE(F) INTO (A) ; 



IEL0817I S RECORD VARIABLE INVALID. 

RECORD VARIABLE INVALID. STATEMENT IGNORED. 

Example ; 

DCL 1 A f 2 B BIT(M) UNALIGNED, 
2 C BIT(N) UNALIGNED; 
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Explanation : The variable named in the INTO or FROM 
option cannot be an unaligned and non- varying bit 
string that is also based* defined, a parameter, or 
contained in an aggregate. Neither can it be 
any minor structure that starts or ends with an 
'unaligned, non-varying bit string. 



IEL0818I S 



INVALID SET OF OPTIONS. 



INVALID SET OF OPTIONS ON RECORD I/O STATEMENT. STATEMENT 
IGNORED. 



Example : 

REWRITE FILE(F) EVENT (E); 



Explanation : The input/output statement has an invalid or 
incomplete set of options. In the example above, the FROM 
option is missing. 



IEL0819I I 



RECORD I/O FUNCTION OPTIMIZED, 



RECORD I/O FUNCTION OPTIMIZED. 
REQUIRED. 



NO LIBRARY SUBROUTINE CALL 



Explanation : Under certain circumstances, the optimizing 
compiler will generate inline code for record -oriented I/O 
statements. 



IEL0820I S 



ATTRIBUTES OF D CONFLICT WITH THOSE ON •OPEN*. 



ATTRIBUTES ON •OPEN* STATEMENT CONFLICT WITH THOSE 
DECLARED FOR FILE D. •UNDEFINEDFILE* CONDITION MAY BE 
RAISED ON ATTEMPT TO OPEN THE FILE. 



Example : 



DCL F FILE INPUT; 

OPEN FILE(F) OUTPUT; 



IEL0827I E 



•PAGESIZE" OR "LINESIZE' CONFLICT WITH ATTRIBUTES OF D. 



SPECIFICATION OF •PAGESIZE' OR •LINESIZE' OPTION CONFLICTS 
WITH ATTRIBUTES OF FILE D. OPTION IGNORED. 



Explanation : The PAGESIZE option can only be specified 
for PRINT files. The LINESIZE option can only be 
specified for STREAM OUTPUT files (including PRINT files) 



IEL0828I S 



INVALID • TITLE • •PAGESIZE* OR 'LINESIZE* FOR D, 
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INVALID SPECIFICATION OF 'TITLE* •PAGESIZE' OR •LINESIZE* 
OPTION FOR FILE D. OPTION IGNORED. 

Explanation : Arguments to the options PAGESIZE and 
LINESIZE must be expressions that represent an arithmetic 
value. The argument to the TITLE option must be an 
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expression that represents a character-string value. 

IEL0830I S NO ACCESS "ENV' OPTION FOR •DIRECT* FILE D. 

•DIRECT' ATTRIBUTE BUT NO ACCESS TYPE •ENVIRONMENT* OPTION 
FOR FILE D. 'UNDEFINEDFILE* MAY BE RAISED ON ATTEMPT TO 
OPEN THE FILE. 

Example ; 

ECL D FILE DIRECT; 

Explanation ; INDEXED, REGIONAL, or VSAM roust be specified 
in the ENVIRONMENT option for a file with the DIRECT 
attribute. 

Programmer Response ; Specify access type in ENVIRONMENT 
option. 

IEL0834I S ATTRIBUTES AND ENVIRONMENT OPTIONS FOR D CONFLICT. 

ATTRIBUTES AND ' ENVIRONMENT 1 OPTIONS FOR FILE D CONFLICT. 
'•UNDEFINEDF!^" MAY BE RAISED ON ATTEMPT TO OPEN THE EILE. 

Example ; 

DCL A FILE DIRECT ENV (CONSECUTIVE. ..) ; 

IEL0835I S INVALID ATTRIBUTES FOR D IGNORED. 

INVALID ATTRIBUTE (S) FOR FILE D IGNORED. 

Example ; 

DCL E FILE FLOAT; 

IEL0836I S T FOR D CONFLICTS WITH PREVIOUSLY DECLARED ATTRIBUTES. 

ATTRIBUTE T IN FILE D CONFLICTS WITH ONE PREVIOUSLY 
DECLARED AND IS IGNORED. 

Example ; 

DCL F FILE INPUT STREAM OUTPUT...; 

IEL0837I S INVALID "ENVIRONMENT' OPTION (S) FOR D IGNORED. 

INVALID •ENVIRONMENT* OPTION (S) FOP FILE D IGNORED. 



IEL0838I S 



Example ; 

DCL E FILE ENV (REGIONAL . . . ) ; 

T FOR D CONFLICTS WITH PREVIOUSLY DECLARED OPTIONS. 

•ENVIRONMENT' OPTION T IN FILE D CONFLICTS WITH ONE 
PREVIOUSLY DECLARED AND IS IGNORED. 
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Example s 



ECL F FILE ENVIRONMENT 

(INDEXED F RECSIZE(80) CONSECUTIVE. 



.); 



IEL084 0I S INVALID OPTION (S) ON 'CLOSE' FOR D. 

INVALID "ENVIRONMENT' OPTION (S) ON 'CLOSE' STATEMENT FOR 
FILE D. OPTION (S) IGNORED. 



Example s 

CLOSE FILE(F) ENV (INDEXED) ; 



Explanation ; The only option allowed in a CLOSE statement 
is the LEAVE option. 



IEL0848I S INVALID 'GET' OR 'PUT' STATEMENT IGNORED. 

•GET* OR 'PUT' STATEMENT REFERENCES A 'RECORD' FILE. 
STATEMENT IGNORED. 



Explanation : A GET or PUT statement may only reference a 
file with the STREAM attribute. 



IEL08U9I E INVALID "E' OR 'F' FORMAT ITEM. 

COMPILER RESTRICTION. THE NUMBER OF DIGITS AFTER THE 
DECIMAL POINT IN AN 'E' OR *F' FORMAT ITEM IS GREATER THAN 
N. N IS ASSUMED. 

IEL0850I E INVALID 'E' OR ' F' FORMAT ITEM. 

THE NUMBER OF DIGITS AFTER THE DECIMAL POINT IN 'E' OR 'F* 
FORMAT ITEM IS NEGATIVE. ZERO IS ASSUMED. 

IEL0851I E CONFLICTING OPTIONS. T IGNORED. 

CONFLICTING OPTIONS IN 'PUT' STATEMENT. OPTION T IGNORED. 

Example s 

PUT FILE (A) SKIP (3) LINE (7); 



Explanation ; The only legal combination of PAGE* SKIP, 
and LINE is PAGE and LINE. 



IEL0852I E T VALID ONLY FOR PRINT FILES. 

T OPTION VALID ONLY FOR PRINT FILES. OPTION IGNORED. 

Example s 

DCL A FILE STREAM; 

OPEN FILE (A) OUTPUT; 

PUT FILE (A) LINE (3) LIST (B,C); 

Explanation ; The options LINE and PAGE are allowed only 
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on statements referring to STREAM OUTPUT PRINT files. 



IEL0853I W D NOT ARITHMETIC OR STRING. 

DATA LIST ITEM D NOT ARITHMETIC OR STRING. 

Example ; 

LAB2: A = B + C; 
GET LIST <D,E,LAB2) ; 



ITEM IGNORED. 



Explanation : Elements in a data list must have arithmetic 
or string data type, that is they must be problem data. 



IEL0854I S CONSTANT IN 'GET* OR 'PUT' DATA LIST. 

CONSTANT INVALID IN DATA LIST IN 'GET' OR 'PUT' • DA1A ' 
STATEMENT. DATA ITEM DELETED. 



Example : 

PUT DATA (3); 

INVALID STRING OPTION OR GRAPHIC ITEM. 

'STRING 1 OPTION DOES NOT CONTAIN A CHARACTER STRING 
VARIABLE OR A GRAPHIC ITEM IS NOT ALLOWED IN 'GET' OR 
•PUT' STRING. STATEMENT IGNORED. 

Example : 



IEL0855I S 



ECL A FIXED BIN; 

PUT STRING (A) LIST(B,C,D); 



Explanation : The variable referred to by the STRING 
option must be a character string variable; or a 
graphic item cannot be used in a GET STRING or PUT 
STRING statement. 



IEL0856I E NO DATA ITEM IN FORMAT LIST. 

NO DATA FORMAT ITEM IN FORMAT LIST. FORMAT LIST WILL BE 
USED ONLY ONCE. DATA LIST IGNORED. 



Explanation : Data items cannot be transmitted unless a 
data format item is given in the format list. No 
assumptions are made. 



IEL0857I S 



Example : 

PUT EDIT (A) (X<4)) ; 

CONTROL FORMAT ITEM(S) INVALID WITH 'STRING 1 OPTION. 

INVALID CONTROL FORMAT ITEM(S) IN 'GET* OR 'PUT STATEMENT 
WITH •STRING* OPTION. FORMAT ITEM(S) IGNORED. 
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Example : 

PUT STRING (NAME) EDIT(A, B) (F (5) r SKIP r F(5)) ; 



Explanation ; Control format items SKIP, LINE, PAGE, and 
COLUMN are not permitted in GET STRING or PUT STRING 
statements . 



IEL085 8I S INVALID 'A' OR "B* FORMAT ITEM. 

INVALID 'A* OR f B' FORMAT ITEM IN 'GET' STATEMENT. *A(1)' 
OR 'ECD 1 ASSUMED. 



Example : 

GET EDIT(CHAR1,CHAR2) (A); 



Explanation : An A- format item must be specified with an 
explicit width when used in GET statements. 



IEL0859I W 'A' OR *B' FORMAT ITEM INVALID IF USED BY 'GET*. 

•Ml)' OR "Ed)' ASSUMED FOR 'A' OR 'B* FORMAT ITEM IF 
FORMAT LIST IS USED BY A f GET f STATEMENT. 



Example : 



F: FORMAT (A) ; 

GET EDIT (CHAR) (R(F)); 



Explanation : An A-format or B-format item irust be 
specified with an explicit width when used in GET 
statements- 



IEL0 860I E WIDTH IN FORMAT ITEM EXCEEDS N. 

COMPILER RESTRICTION. WIDTH IN FORMAT ITEM IS GREATER 
THAN N. N ASSUMED. 



Example : 

PUT EDIT(A,E) (F(5),X(43000),F(5)); 



Explanation : An A-format item cannot have a width that is 
greater than 32767. 



IEL0861I W *E» FORMAT ITEM WIDTH TOO SMALL FOR NEGATIVE VALUES. 

•E' FORMAT ITEM HAS WIDTH TOO SMALL FOR MINUS SIGN TO BE 
PRINTED. 



Example : 

A = -3-57; 

FUT EDIT(A) (E(8,2,3)); 

In this example, the resultant output should be 
*-3.57E+00 , which is nine characters whereas the width 
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allowed in the POT statement is only eight characters. 
This will cause the minus sign to be lost. 



IEL0862I S 'E' FORMAT ITEM WIDTH TOO SMALL FOF DATA. 

•E' FORMAT ITEM HAS WIDTH TOO SMALL FOR COMPLETE OUTPUT OF 
THE ITEM. ITEM IGNORED. 



Example ; 

A - -3.57; 

PUT EDIT (A) (E (7,2,3)); 

In this example, the resultant output should be 
•-3.57E+00* which is nine characters whereas the width 
allowed in the PUT statement is only seven characters. 
This would cause the minus" sign and the most significant 
digit to be lost; therefore, the complete item is 
ignored. . 



IEL0863I S INVALID ARGUMENT TO 'E' OR "F # FORMAT HEM. 

INVALID ARGUMENTS TO "E 1 OR 'F* FORMAT ITEM. FORMAT ITEM 
IGNORED. 

Example ; 

PUT EDIT (A) (E (8,4,3) ); 

IEL0864I E 'PAGE' OF 'LINE* IN 'GET f OR 'PUT* IGNORED. 

INVALID •PAGE f OR •LINE* FORMAT ITEM IN •GET* OR •PUT* 
STATEMENT. FORMAT ITEM IGNORED. 

IEL0865I W 'PAGE' OR "LINE" IGNORED FOR 'GET*. 

•PAGE" OR 'LINE* FORMAT ITEM WILL BE IGNORED IF FORMAT 
LIST IS USED BY A 'GET* STATEMENT. 

IEL 08661 S SECOND ARGUMENT TO T INVALID. 

SECOND ARGUMENT OF BUILTIN FUNCTION T TOO LARGE OR TOO 
SMALL. VALUE ONE ASSUMED. 

Example ; 

DCL A(3,4) ; 

I = BBOUND(A,3); 

IEL0867I S INVALID ARGUMENT TO ' ALLOCATION' FUNCTION. 

ARGUMENT TO •ALLOCATION* BUILTIN FUNCTION NOT LEVEL ONE 
•CONTROLLED'- FUNCTION RETURNS ZERO VALUE. 

Example ; 

a. DCL A AUTOMATIC; 

I = ALLOCATION (A); 
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b. DCL 1 B, 2 C, 2 D; 

I = ALLOCATION (C); 



Explanation ; The argument to the ALLOCATION fcuilt-in 
function must be a level- 1 controlled variable. 



IEL0868I S 



INVALID ARGUMENT TO T. 



INVALID ARGUMENT TO BUILTIN FUNCTION T. FUNCTION RETURNS 
NULL VALUE. 



Example ; 

DCL A FIXED, 

C AREA, 

D PTR, 

E OFFSET; 
D=POINTER(A,C) ; (1st argument invalid) 
D= POINTER (E, A); (2nd argument invalid) 
E= OFFSET (A, C) ; (1st argument invalid) 
E= OEFSET(D,A); (2nd argument invalid) 



IEL0869I S 



ARGUMENT TO T IS NOT A FILE. 



ARGUMENT TO BUILTIN FUNCTION T IS NOT A FILE. FUNCTION 
RETURNS ZERO VALUE. 



Example ; 



ECL X FLOAT, 
I FIXED; 
I = COUNT (X); 



IEL0870I S 



T USED AS ARGUMENT DOES NOT MATCH PARAMETER DESCRIPTOR. 



BUILTIN FUNCTION T USED AS ARGUMENT DOES NOT MATCH 
CORRESPONDING PARAMETER DESCRIPTOR. RESULTS OF EXECUTION 
UNDEFINED- 



Example ; 



DCL SIN BUILTIN, 

X ENTRY (ENTRY (FIXED ) ) ; 
CALL X(SIN); 



Explanation ; In the above example, the declaration of X 
is incorrect. X should be declared ENTR Y( FLOAT.. .) where 
",..." is the precision and/or the mode. This message 
also applies to the declaration of a parameter for an 
internal procedure. 



IEL0871I I 



FIXED POINT ARITHMETIC USED FOR T RESULT. 



RESULT OF BUILTIN FUNCTION T WILL BE EVALUATED USING FIXED 
POINT ARITHMETIC OPERATIONS. 



Explanation ; This message describes a difference between 
the optimizing compiler implementation and that of the 
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PL/i (F) Compiler. The F compiler converts the arguments 
of the SUM or PROD built-in functions to floating-point in 
all cases. 



IEL0872I W 'ACER* BDILTIN FUNCTION POINTS AT STRING LENGTH FIELD. 

•ADDR 1 BUILTIN FUNCTION RETURNS A POINTER TO THE TWO-BYTE 
LENGTH FIELD PRECEDING THE VARYING STRING VALUE. 



IEL0873I S INVALID FORMAT ITEM IGNORED. 

INVALID EATA TYPE IN FORMAT ITEM. HEM IGNORED. 

Example ; 

DCL F FILE; 

PUT EDIT (A) (A(F)); 



Explanation ; Fields in format items are converted to 
fixed binary. Unless the field specification is 
arithmetic or string, this conversion cannot take place. 



Programmer Response ; Change the specification of the 
format item. 



IEL0874I E INVALID "SKIP 1 OR 'LINE* OPTION. 

INVALIE EATA TYPE IN 'SKIP' OR 'LINE* OPTION,. VALUE 
ONE ASSUMED. 

Example ; 

DCL F FILE; 
PUT SKIP(F); 

Explanation ; The expression in a SKIP or LINE option roust 
be convertible to a fixed decimal integer. 

IEL0875I W ITEM NOT ARITHMETIC OR STRING- 
DATA LIST ITEM NOT ARITHMETIC OR STRING. ITEM IGNORED. 
Example ; 

DCL NULL BUILTIN; 
PUT LI ST (NULL) ; 

Explanation ; Elements in a data list must be problem 
data; that is, they must be arithmetic or string data. 
This message is produced when the data list contains a 
reference to a built-in function (such as NULL cr OFFSET) 
or user-defined function returning a pointer value. 

Programmer Response ; Correct the source program and 
recompile it. 
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IEL0879I U OVERFLOW TEXT PAGES FULL. 
PHASE P. 



COMPILATION TERMINATED IN 



COMPILER RESTRICTION. ALL OVERFLOW TEXT PAGES FULL. 
COMPILATION TERMINATED IN PHASE P. 

Explanation : This message can be produced if there is 
a high concentration of the following statements in the 
program: 

In-line picture conversions 

Concatenation 

Stream I/O 

DECLARE statements for arrays, having INITIAL 

attribute, for automatic, controlled, or 

based storage 
Interlanguage calls 
Record I/O with TOTAL option 

Programmer Response : Reduce the concentration of the 
statements listed above by putting some of them into a 
begin block. The effect of this is to reorder the 
statements internally without changing the order of 
execution. 



IEL0881I U TOO MANY SUBSCRIPTED LABEIS IN THIS BLOCK. 

COMFILER RESTRICTION. TOO MANY SUBSCRIPTED LAEELS IN THIS 
BLOCK. FURTHER LABEL OPTIMIZATION INHIBITED. 

Explanation : The compiler has found too many subscripted 

label variables and/or label prefixes in a blcck, and 
further label optimization cannot be performed. However, 
there should not be any compilation or execution errors 
resulting froit this situation. 

Programmer Response : If full label optimization is 
required, ensure that there are less than 400 subscripted 
label variables and/or label prefixes in any block. If 
necessary, insert dummy BEGIN and END statements in your 
program to fulfil this condition. 

IEL0882I E ARGUMENT TO •STORAGE* OR •CURRENTSTORAGE' MAY BE INVALID. 

ARGUMENT TO 'STORAGE* OR • CURRENT STORAGE * MAY EE INVALID. 
RESULTS OF EXECUTION UNDEFINED. 

Explanation : The variable specified as argument 

to the STORAGE or CURRENTSTORAGE built-in function is one 

of the following: 

1. An unaligned and non-varying bit string that is also 
based, defined, a parameter, or contained in an 
aggregate. 

2. A minor structure that starts cr ends with an 
unaligned non-varying bit string. 

Such a variable may share delimiting bytes with adjacent 
bit string variables, and the byte length returned by 
the built-in function will be undefined. 
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TEL0885I W ASSIGNMENT OF STRING HAS BEEN OPTIMIZED. 
ENSURE STRINGS DO NOT OVERLAP. 



Example; 



A: 



B: 



PROC OPTIONS (MAIN) 
DCL C CHAR (12) 
DCL C1 CHAR (8) 
DCL C2 CHAR (8) 

CALL B(C1,C2) ; 
PROC (M,N) ; 

DCL M CHAR (8); 
DCL N CHAR (8) ; 



INIT ( • ABCDEFGHIJKL ' ) ; 
DEF C POS ( 1 ) ; 
DEF C P6S (5) ; 



N=M; Note ; This statement generates 
message. 



END B; 
END A; 



Explanation ; In certain assignments, the compiler is 
unable to determine whether an assignment can be performed 
directly without error or whether the assignment must be 
made via a compiler-generated temporary. When this 
situation arises, a temporary will always be used when the 
compiler option NOOPTIMIZE is specified, but the temporary 
will not be generated if the compiler option 
OPTIMIZE (TIME) is specified. This message informs the 
user that no temporary has been generated and that 
incorrect results could occur if the two variables do in 
fact overlap. In the example shown, if the assignment has 
been coded as 



M 



N;. 



then no error would occur if no temporary was used in the 
assignment. 

Note; This message may also be issued for picture 
assignments . 

IEL0886I E SECOND ARGUMENT TO • SUBSTR' SET TO ONE. 

SECOND ARGUMENT OF EUILTIN FUNCTION OR PSEUDO-VARIABLE 
•SUBSTR' LESS THAN ONE. VALUE SET TO ONE. 

Example : 

SUBSTRING = SUBSTR (STRING, 0, J); 



Explanation ; The second argument of the SUBSTR built-in 
function must be greater than or equal to 1. 



IEL0887I E SECOND ARGUMENT TO •SUBSTR* TOC LARGE. 

SECOND ARGUMENT OF EUILTIN FUNCTION OR PSEUDO- VARIABLE 
•SUBSTR* GREATER THAN STRING LENGTH. NULL STRING 
RETURNED. 
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Example ; 



DCL STRING CHAR (6); 

SUBSTRING = (SUBSTR<STRING,7,J) ; 



Explanation ; The value of the second argument of the 
SUESTR built-in function must be less than or equal to the 
length of the string in the first argument. 

IEL0888I E THIRD ARGUMENT TO • SUBSTR' NEGATIVE. 

THIRD ARGUMENT OF BUILTIN FUNCTION OR PSEUDO-VARIABLE 
•SUBSTR' NEGATIVE. NOLL STRING RETURNED. 

Example ; 

SUBSTRING = SUBSTR (STRING, 1,-1); 

Explanation ; The third argument of the SUBSTR built-in 
function must be greater than or equal to zero. 

IEL0889I E THIRD ARGUMENT TO •SUBSTR' TOO LARGE. 

THIRD ARGUMENT OF BUILTIN FUNCTION OR PSEUDO- VARIABLE 
•SUBSTR" GREATER THAN STRING LENGTH. RETURNED VALUE 
TRUNCATED AT END OF SOURCE STRING. 

Example ; 

DCL STRING CHAR (6); 

SUBSTRING = SUBSTR (STRING, I, 7) ; 



Explanation ; The third argument of the SUBSTR built-in 
function must be less than or equal to the length of the 
string in the first argument. 



IEL0890I E ARGUMENTS TO •SUBSTR' TOO LARGE. 

THE SUM OF THE SECOND AND THIRD ARGUMENTS OF BUILTIN 
FUNCTION OR PSEUDO-VARIABLE •SUBSTR' IS GREATER THAN THE 
STRING LENGTH PLUS ONE. RETURNED VALUE TRUNCATED AT END 
OF SOURCE STRING. 



Example ; 

DCL STRING CHAR(6); 

SUBSTRING = SUBSTR (STRING, 6, 2) ; 



Explanation ; The value of the first argument plus the 
value of the second argument, less one, roust be less than 
or equal to the length of the string in the first 
argument. 
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IEL0891I W RESULT OF BIT STRING OPERATION WILL BE TRUNCATED. 
RESULT OF BIT STRING OPERATION WILL BE TRUNCATED. 

Example ; 

DCL A BIT (10) r 

E BIT (20), 

C BIT(15) ; 
A = B6C; 

IEL0892I W RESULT OF STRING OPERATION TRUNCATED. 

TARGET STRING SHORTER THAN SOURCE. RESULT TRUNCATED ON 
ASSIGNMENT. 
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Example : 



DCL Bl BIT (5), 

(B2,B3) BIT(7) 
Bl = B2; 



Explanation : This message warns of a possible error 
caused by the loss of truncated bits when the assignment 
takes place. If the STRINGSIZE condition is not enabled, 
the condition will not be raised at execution time. 



IEL0903I S INVALID ARGUMENT TO 'HIGH' OR 'LOW REPLACED BY '(1)'. 

INVALID ARGUMENT TO 'HIGH 1 OR 'LOW* BUILTIN FUNCTION. 
* (1) * ASSUMED. 



I EL 09041 S OPERATOR (S) INVALID FOR 'COMPLEX' DATA. 

OPERATOR(S) INVALID FOR 'COMPLEX' DATA. '=' ASSUMED. 

Example : 

DCL (A,B) COMPLEX; 

IF A > B THEN GOTO...; 



Explanation : Operators permitted for use with complex 
data are limited to , = " and •-.=■• (equals and not-equals) 
operators . 



IEL0905I S EXPRESSION IN "INITIAL' FOR STATIC VARIABLE D. 

SPECIFICATION OF 'INITIAL' ATTRIBUTE FOR STATIC VARIABLE D 
CONTAINS EXPRESSION. 'INITIAL' ATTRIBUTE IGNORED. 



Example : 



DCL A STATIC COMPLEX INITIAL (3+4I+5I) ; 



IEL0906I I CONVERSION WILL BE DONE BY SUBROUTINE CALL. 

DATA CONVERSION WILL BE DONE BY SUBROUTINE CALL. 



Explanation : This message informs that the program 
contains one or more conversions that will require a PL/I 
library subroutine. Its purpose is to indicate where the 
program might be made more efficient if it can be recoded 
to ensure that the conversion is performed more 
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efficiently by compiler-generated instructions. 



IEL0907I S WRONG NUMBER OF ARGUMENTS FOR ENTRY D. 

WRONG NUMBER OF ARGUMENTS SPECIFIED FOR FUNCTION OR CALL 
D. RESULTS OF EXECUTION UNDEFINED. 



Example : 

DCL P ENTRY (FLOAT, FLOAT) EXTERNAL; 

1. CALL P(A); 

2. A = P(A,A,A) ; 



Explanation : A procedure has been referenced with a 
number of arguments different from the number in the 
parameter descriptor. 



Programmer Response ; Correct the source. 



IEL0908I W 'RETURN' EXPRESSION MAY CONFLICT WITH ENTRY SPECIFICATION. 

DATA TYPE OF RETURNED EXPRESSION CONFLICTS WITH * RETURNS' 
OPTION OF AN ENTRY SPECIFICATION IN THIS BLOCK. 'RETURN' 
EXPRESSION WILL BE IGNORED IF THE INVALID COMBINATION OF 
•RETURN" AND ENTRY IS USED. 

Example : 

P: PROC RETURNS (FILE); 

E: ENTRY RETURNS (DEC FLOAT); 

DCL F DEC FLOAT, 
G FILE; 

RETURN (F) ; 

RETURN (G); 

In this example, the first RETURN statement conflicts with 
the PROC statement and will be treated as a RETURN without 
an expression if executed during an invocation of P. 
Similarly, the expression in the second RETURN statement 
will be ignored if executed during an invocation of E. 

IEL0909I I DATA VARIABLE USED FOR PROGRAM CONTROL. 

BASED REFERENCE TO PROGRAM CONTROL DATA REFERS TO STORAGE 
USED BY VARIABLE D BUT IS ACCEPTED AS VALID. 



Example : 



DCL BLV LABEL BASED, 
P POINTER; 
P->BLV = LABCON 



1. GOTO P->BLV (valid) 
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2. 



GOTO ADDR (FLOAT) ->BLV 
(invalid but allowed) 



Explanation : The global* optimization process roust 
include analysis of all possible values of label 
variables, entry variables, and pointers in the program 
before it can attempt to perform move-out and 
strength- reduction. During the process, the second 
condition in the example above would be detected. This 
condition would restrict the global* optimization process, 
since this process cannot detect all the possible label 
constant values that might be assigned to FLOAT. 

♦Global optimization is defined in the explanation for 
IEL0910I. 



IEL0910I W 



TOO MANY CALLS AND FUNCTION REFERENCES FOR OPTIMIZATION. 



COMPILER RESTRICTION. TOO MANY 'CALL' STATEMENTS AND 
FUNCTION REFERENCES. OPTIMIZATION IS INHIBITED FOR THE 
PROGRAM . 



Explanation : A program that is to be compiled with full 
optimization (with OPT (TIME) specified) has so many 
branches of control between blocks that the capacity of 
the compiler to analyze them has been exceeded. The 
compilation is completed without global optimization; some 
local optimization may have been performed. In this 
context, local optimization includes such things as the 
in-line simplification of calculations such as 1*3 and 
A**4, and the matching of data items with format items in 
edit I/O. Conversely, global optimization is concerned 
with the commoning of expressions, the moving of invariant 
expressions from loops, and further simplification of 
expressions. If full global optimization is performed, 
then any or all of the types of optimization may be 
carried out, either within or between flow units (logical 
divisions of the PL/I source program). If certain 
compiler limitations are exceeded, then global 
optimization is restricted to expression commoning alone. 
Furthermore, this is performed solely within flow units. 

The compiler permits up to 256 separate CALL statements 
and function references involving both entry constants and 
entry variables. This limit includes each entry constant 
or entry variable passed as an argument to an external 
procedure- A further limit of 20 4 8 exists for all 
possible assignments of entry constants to entry 
variables. 



Programmer Response : To obtain global optimization it is 
necessary to simplify the program's structure so that the 
number of branches between begin blocks and between 
internal procedures is kept within the limits described 
above. 



IFX0911I W TOO MANY LOCATOR LABEL OR ENTRY ASSIGNMENTS FOR 
OPTIMIZATION. 



COMPILER RESTRICTION. 
VARIAELE ASSIGNMENTS. 
PROGRAM . 



TOO MANY LOCATOR LABEL OR ENTR* 
OPTIMIZATION IS INHIBITED FOR THE 
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Explanation : A program that is to be compiled with 
global* optimization (with OPT (TIME) specified) has so 
many locator and entry variable assignments that the 
capacity of the compiler to analyze them has been 
exceeded. The compilation is completed without global 
optimization. 

The compiler permits up to 1360 locator, label, or 
entry variable assignments without inhibiting 
optimization. 

* Local and global optimization are defined in the 
explanation for IEL0910I. 



Programmer Response ; To obtain global optimization it is 
necessary to reduce the number of locator and entry 
variable assignments that appear in the source program. 



IEL0912I W 



TOO MANY BASED LOCATOR LABEL OR ENTRY ASSIGNMENTS FOR 
OPTIMIZATION. 



COMPILER RESTRICTION. TOO MANY ASSIGNMENTS WITH BASED 
LOCATORS LABEL OR ENTRY VARIABLES. OPTIMIZATION IS 
INHIEITEE FOR THE PROGRAM. 



Explanation ; A program that is to be compiled with 
global* optimization (with OPT (TIME) specified) has so 
many based locator, based label, and based entry variable 
assignments that the capacity of the compiler to analyze 
them has been exceeded. The compilation is completed 
without global optimization. 

The compiler permits up to 680 based locator, label or 
entry variable assignments without inhibiting 
optimization. 

* Local and global optimization are defined in the 
explanation for IEL0910I. 



Programmer Response ; To obtain global optimization it is 
necessary to reduce the number of based locator, based 
label, and based entry variable assignments that appear in 
the source program. 



IEL0913I W 



TOO MANY LOCATOR TEMPORARIES ACTIVE FOR OPTIMIZATION. 



COMPILER RESTRICTION. TOO MANY LOCATOR TEMPORARIES 
ACTIVE. OPTIMIZATION IS INHIBITED FOR THE PROGRAM. 



Explanation : The compiler creates a 'locator temporary • 
for functions that return locator values. A program that 
is to be compiled with global* optimization (with 
OPT (TIME) specified) has so many of these locator 
temporaries created that the capacity of the compiler to 
analyze them has been exceeded. The compilation is 
completed without global optimization. 

The compiler permits up to 10 locator temporaries 
without inhibiting optimization. 

* Local and global optimization are defined in the 
explanation for IEL0910I. 
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Programmer Response ; To obtain global optimization it is 
necessary to reduce the number of locator values returned 
by functions that appear in the source prograir. 



IEL0914I W STATEMENT MAY NEVER BE EXECUTED. 
STATEMENT MAY NEVER BE EXECUTED. 



Example ; 



P: PROCEDURE; 
DCL X, Y CHAR(l) ; 



THEN Y= ■• ' ; 
ELSE GOTO L2; 



IF X=*2' 

GOTO L2; 
Lis A=5; 
L2: B=6; 

END P; 



In this example, the message will be produced for the 
statement labelled Ll f since there is no possibility of 
control being transferred to it. 

The statement "GOTO L2;" in this example can be executed. 
However, the optimization process has modified the THEN 
clause to branch directly to the label constant L2 rather 
than to the statement following the ELSE clause. The 
message is then produced and the redundant statement is 
eliminated. 



Explanation ; This message warns that the compiler has 
detected a statement that can never be executed as the 
flow of control must always pass by it. 



IEL0915I W TOO MANY STATEMENT LABEL CONSTANTS FOR OPTIMIZATION. 

COMPILER RESTRICTION. TOO MANY STATEMENT LABEL CONSTANTS. 
OPTIMIZATION IS INHIBITED FOR THE PROGRAM. 



Explanation ; A program that is to be compiled with 
global* optimization (with OPT (TIME) specified) has so 
many statement label constants that the capacity of the 
compiler to analyze them has been exceeded. The 
compilation is completed without global optimization. 

The compiler permits up to 20 48 statement label 
constants without inhibiting optimization. 

* Local and global optimization are defined in the 
explanation for IEL0910I. 



Programmer Response ; To obtain global optimization it is 
necessary to reduce the number of statement label 
constants used in the source program. 



IEL0916I W ITEM(S) D MAY BE UNINITIALIZED. 

ITEM(S) D MAY BE UNINITIALIZED WHEN USED IN THIS BLOCK. 
Example ; 
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Y: PROC; 
DCL X; 
Z=X; 
END Y; 



Explanation : This message refers only to variables 
declared within the block- The flow- analysis stage of 
optimization checks all possible flow-paths through a 
program although many of the possible flow-paths may never 
be used. In doing so, the flow analysis determines 
flow-paths originating from statements prefixed by label 
constants that can be branched to from on-units r as well 
as those that originate from PROCEDURE and ENTRY 
statements. 

It is possible, therefore, that this message is produced 
for items that are initialized correctly for the 
flowpaths that will actually be used owing to the presence 
of other flow paths that will never be used. This is 
aggravated by the necessity to consider label constants 
as external entry points. In the following example, an 
on-unit returns control to a block by means of a GOTO 
statement. The variable x is detected as uninitialized if 
the block is entered through the label constant Y, 
although it may have been initialized before 
the on-unit is entered. 

P: PROC 
X = 100; 
ON OFL GOTO Y; 






The final value assigned to a static variable in one 
invocation of a procedure will be the 'initial' value of 
that variable in a subsequent invocation of that 
procedure. 

IEL0917I W N FLOW UNITS IN BLOCK. GLOBAL OPTIMIZATION RESTRICTED. 

BLOCK CONTAINS N FLOW UNITS. GLOBAL OPTIMIZATION 
PERFORMED ONLY IN DO GROUPS- 

Explanation : The block has been split into flow units for 
the purposes of global* optimization. However, the 
compiler limit of 255 flow units in a block has been 
exceeded, and consequently, global optimization is 
restricted. Before scanning to the next block, the 
compiler looks for do-groups in the current block, in the 
hope that flow analysis (and full global optimization) may 
be completed for these. 

* Local and global optimization are defined in the 
explanation for IEL0910I. 

Programmer Response : If full optimization is required for 
the block, either simplify the flow of control within the 
block, or divide the block into two or more simpler 
blocks. 
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IEL0918I W GO TO D MAY PASS CONTROL OUT OF BLOCK. 

GO TO D MAY CAUSE CONTROL TO BE PASSED OUT OF THE CURRENT 
BLOCK . 

Explanation ; D is a label variable declared to be STATIC 
and INITIAL. Since the initialization is done at compile 
time, no environment information can be supplied to the 
label variable; since it has been detected that control 
may be passed out of the current block, the GOTO is 
executed by the library. This will cause an 
execution-time error. If this message appears, message 
IEL0580I (severity E) will have been produced fcr the 
specified label variable. 

Programmer Response : Redeclare the LABEL variable as 
AUTOMATIC. 

IEL0919I W N VARIABLES IN PROGRAM. GLOBAL OPTIMIZATION RESTRICTED. 

N VARIABLES IN PROGRAM. GLOBAL OPTIMIZATION PERFORMED FOR 
255 VARIABLES. LOCAL OPTIMIZATION PERFORMED ON REMAINDER. 

Explanation : The compiler will consider 255 variables in 
the program for global* optimization. The remainder are 
considered solely for local* optimization. 

Explicitly declared variables will be considered for 
global optimization in preference to contextually declared 
variables, and the latter will in turn be considered in 
preference to implicitly declared variables. Furthermore, 
the highest preference will be given to those variables 
declared in the final DECLARE statements in the outermost 
block. 

If the program contains more than 255 variables, most 
benefit will be obtained from the global optimization of 
arithmetic variables, particularly DO loop control 
variables and subscripting variables. Little or no 
benefit will be gained from the optimization of string 
variables or program control data. 

Arithmetic variables should not, therefore, be 
implicitly declared but should be declared in the final 
DECLARE statements in the outermost block. Further 
benefits may be obtained if declared but unreferenced 
variables are eliminated from the program. 

* Local and global optimization are defined in the 
explanation for IEL0910I. 

IEL0920I W N FLOW UNITS IN DO GROUP. GLOBAL OPTIMIZATION RESTRICTED. 

DO GROUP CONTAINS N FLOW UNITS. GLOBAL OPTIMIZATION IS 
RESTRICTED. 

Explanation : The compiler limit of 255 flow units in a 
do-group has been exceeded and full global* optimization 
is inhibited within the group,. Partial global 
optimization will be performed for flow units within the 
group . 
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* Local and global optimization are defined in the 
explanation for IEL0910I. 



IEl.09211 E LESS THAN N CHARACTERS OF T IN D PRINTED. 

QUALIFIED NAME OF ELEMENT T OF STRUCTURE D WILL BE 
TRUNCATED TO LESS THAN N CHARACTERS IN DATA DIRECTED 
I/C. 



Example ; 

PUT DATA (PAYROLL) ; 

where PAYROLL is declared as a base element of a structure 
which when fully qualified exceeds 255 characters* 
including periods. 



IEL0923I E D INVALID TYPE IN DATA LIST FOR DA1A DIRECTED I/O OR 
CHECK. 



IEL0924I E 



COMPILER RESTRICTION. TYPE OF 'BASED* VARIABLE D IN 
DATA LIST NOT SUPPORTED FOR DATA DIRECTED I/O OR CHECK. 
ITEM IGNORED. 

Example ; 

DCL 1 STR BASED (P) , 

2 LEN FIXED BIN, 

2 TITLE CHARCN REFER (LEN)); 
PUT DATA (TITLE); 

Explanation ; The optimizing compiler does not permit 
PUT DATA and GET DATA statements or the CHECK prefix 
option on certain types of based variables. This based 
variable in the DATA list or CHECK list will be ignored. 
See the chapter "Stream-Oriented Transmission" in the 
language reference manual for details. 

D INVALID TYPE IN DATA LIST FOR DA1A DIRECTED I/O OR 
CHECK. 



COMPILER RESTRICTION. TYPE OF •DEFINED' VARIABLE D IN 
DATA LIST NOT SUPPORTED FOR DATA DIRECTED I/O OR CHECK. 
ITEM IGNORED. 



Example ; 

DCL A CHAR (100), 

B CHAR (10) DEF A POS(N); 
PUT EATA(B); 
DCL C(100,100) CHAR(l), 

D(10,10) CHAR(l) DEF CdSUB, 2SUB) ; 
POT DATA(D) ; 
ECL E CTL, 

F DEF E; 
PUT CATA(F); 



Explanation ; The optimizing compiler does not permit the 
transmission of the following types of defined variables 
by means of the PUT DATA statement or the CHECK prefix 
option: 

1. A string-overlay defined item. 
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IEL0925I W 



Page of SC33-002 7-4, As Updated 21 March 1980 by TNL SN20-9321 

2 . An iSUB-def ined item,. 

3. An item defined on a controlled base variable. 

This defined variable in the DATA list or CHECK list will 
be ignored. 

GLOBAL OPTIMIZATION RESTRICTED. 



FLOW WITHIN BLOCK OR DO GROUP IS TOO COMPLEX. 
OPTIMIZATION IS RESTRICTED. 



GLOBAL 



Explanatio n: The block or do-group has been split into 
flow units for the purposes of flow analysis and global* 
optimization. However, the compiler limit of 1024 
connections between flow units has been exceeded, and 
consequently, global optimization has been restricted 
within the block or group. Partial global optimization 
will be performed for flow units within the blcck or 
group. 

* Local and global optimization are defined in the 
explanation for IEL0910I. 



IEL0926I S 'SIZE* RAISED WHEN CONVERTING CONSTANT ITO D] . 

•SIZE* CONDITION RAISED WHEN CONVERTING CONSTANT [TO D] . 
RESULT OF CONVERSION UNDEFINED. 



Example ; 

DCL A FIXED DECIMAL ( 2, 0) ; 
A = 999; 

E xplanation : A constant converted at compile-time has 
raised the 'SIZE* condition. 



IEL0927I S 'CONVERSION* RAISED WHEN CONVERTING CONSTANT [TO D] . 

"CONVERSION* CONDITION RAISED WHEN CONVERTING CONSTANT [TO 
D] . RESULT OF CONVERSION UNDEFINED. 

Example : 

READ FILE (BERT) IGNORE ("JACK AND JIM*); 



Explanation : The IGNORE option should refer to an 
arithmetic integer value. 



IEL0928I U STATIC STORAGE EXCEEDS 16777216 BYTES. 

THE SIZE OF STATIC STORAGE REQUIRED FOR THIS PROGRAM 
EXCEEDS 16777216 BYTES. 



Explanation : Since the address space for System/370 
is only 16777216 bytes, it is impossible for STATIC 
storage to exceed this size. 



Programmer Response : Check the declarations for STATIC 
arrays and structures, and reduce the size of extents 
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that have been specified. 



IEL0929I U 



AUTOMATIC STORAGE EXCEEDS 16777216 BYTES. 



THE SIZE OF AUTOMATIC STORAGE REQUIRED FOR THIS BLOCK 
EXCEEDS 16777216 BYTES. 



Explanation : Since the address space for 
System/370 is only 16777216 bytes, it is impossible for 
AUTOMATIC storage for any procedure or begin block to 
exceed this size. 



Programmer Response ; Check the declaration fcr AUTOMATIC 
arrays and structures in the identified block, and reduce 
the size of extents that have been specified. 



IEL0930I E 



COMPILER RESTRICTION. 
64K BYTES. 



PART OF STATIC STORAGE EXCEEDS 



Explanation : Static storage is divided into a series 
of regions. Each region contains different categories 
of either constants or variables. If one of the regions 
containing constants, for example the region containing 
symbol tables, exceeds 65535 bytes in size, then it may 
prove impossible for the compiler to address some of the 
constants- 



Programmer Response : If the program contains numerous 
variables and also contains a GET DATA or PUT DATA 
statement without any qualifying list, then remove the 
statement or replace it by a statement containing a 
data list. 

Alternatively split the external procedure iinto two or 
more external procedures. 



IEL0931I E 



LENGTH OF D EXCEEDS LENGTH OF 'DEFINED' BASE. 



LENGTH OF VARIABLE D EXCEEDS LENGTH OF VARIABLE ON WHICH 
IT IS DEFINED. THIS DEFINING HAS BEEN ACCEPTED. 



Example : 



ECL A CHARC6); 

DCL B CHAR (10) DEF A; 



Explanation : The optimizing compiler will accept this 
invalid form of defining to permit execution of programs 
that require it. However, it is possible that an 
assignment to the defined item will cause storage to be 
overwritten and an unpredictable error to occur. 



Programmer Response : If this defining is required, check 
that any conditional link-editing and execution stepss will 
not be inhibited. 



IEL0932I S 



AGGREGATE DESCRIPTOR FOR D TOO LARGE- 
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IEL0933I W 



COMPILER RESTRICTION. AGGREGATE DESCRIPTOR FOR D 100 
LARGE. RESULTS OF EXECUTION UNDEFINED. 



Explanation ; An aggregate descriptor is a control block 
created by the compiler to handle the addressing of the 
Base elements in an aggregate. Its format is described in 
the execution logic manual for this compiler. A large 
number of base elements in a large aggregate has caused 
the aggregate descriptor to exceed 4095 bytes, the limit 
of its internal addressability. 



D INVALID TYPE FOR DATA DIRECTED I/O OR CHECK. 

COMPILER RESTRICTION. TYPE OF * BASED* VARIABLE D NOT 
SUPPORTED FOR DATA DIRECTED I/O OR CHECK. ITEM IGNORED. 

Example : 

DCL 1 STR BASED (P) , 

2 LEN FIXED BIN, 

2 TITLE CHARCN REFER(LEN)); 
PUT DATA; 

Explanation : The optimizing compiler does not permit 
PUT DATA and GET DATA statements or the CHECK prefix 
option on certain types of based variables. See the 
chapter 'Stream- Oriented Transmission* in the language 
reference manual for details. 



IELQ934I W 



IEL0940I W 



D INVALID TYPE FOR DATA DIRECTED I/O OR CHECK. 

COMPILER RESTRICTION. TYPE OF 'DEFINED* VARIABLE D NOT 
SUPPORTED FOR DATA DIRECTED I/O OR CHECK. ITEM IGNORED. 

Example : 

DCL A CHARC100), B CHAR(IO) DEF A POS(N); 

DCL C (100, 100) CHAR (1) ; 

DCL D(10,10) CHAR(l) DEF C (1SUE, 2SUE)( ; 

DCL E CTL,F DEF E; 

PUT DATA; 

Explanation : The optimizing compiler does not permit the 
transmission of the following types of defined variables 
by means of the PUT DATA statement or the CHECK prefix 
option: 

1. A string-overlay defined item. 

2. An iSUB-defined item. 

3. An item defined on a controlled base variable. 

T MAY INCREASE EXECUTION TIME. 

T CONFLICTS WITH THE OPTIMIZE OPTION. EXECUTION TIME MAY 
BE INCREASED. 

Explanation : The FLOW, COUNT, and INTERRUPT options, 
and the CHECK, STRINGRANGE, SUBSCRIPTRANGE, SIZE, and 
STRINGSIZE conditions are program debugging aids causing 
many fcxtra machine instructions to be generated and 
executed; their use is inconsistent with the use of the 
OPT(T]EME) option, which specifies that the compiler is 
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to optimize the generated machine instructions in order 
that a very efficient program may be produced. 

Programmer Response ; Remove the FLOW, COUNT, and INTERRUPT 
options, and/or conditions if the full benefit of 
optimization is to be obtained. 

IEL0954I W 'PLIXHD" NOT DECLARED AS SCALAR •CHARACTER' AND •VARYING*. 

' PLIXHD' NOT DECLARED AS SCALAR 'CHARACTER* AND •VARYING*. 
RESULTS OF EXECUTION UNDEFINED. 



Explanation ; A level 1 static external variable called 
PLIXHD is not declared as scalar and CHARACTER VARYING, 
rendering it unsuitable for user-identification of REPORT 
and COUNT output. Such a declaration will give rise to 
unpredictable results at execution if either REPORT or 
COUNT output is required. 



IEL0955I E 



'PLIXOPT' NOT DECLARED AS SCALAR 'CHARACTER* AND * INITIAL • 



* PLIXOPT' NOT DECLARED AS SCALAR 'CHARACTER' AND •INITIAL* 
RESULTS OF EXECUTION UNDEFINED. 



Explanation ; A level 1 STATIC EXTERNAL variable called 
PLIXOPT is not declared as scalar and CHARACTER INITIAL, 
rendering it unsuitable for execution-time options. Such a 
declaration will give rise to unpredictable results on 
program initialization at execution-time. 



IEL0956I W •PLIXOPT' NOT DECLARED 'VARYING'. 

•PLIXOPT 1 NOT DECLARED 'VARYING* BUT ACCEPTED, 



Explanation ; The VARYING attribute is omitted from an 
otherwise suitable declaration of a variable called PLIXOPT 
for execution-time options. However, the variable is 
accepted for compile-time analysis of the associated 
initial string. 

IEL0957I E "PLIXOPT* 'INITIAL' STRING HAS LENGTH OUTSIDE PERMITTED 
RANGE. 

•PLIXOPT' 'INITIAL* STRING HAS LENGTH OUTSIDE PERMITTED 
RANGE. NO EXECUTION OPTIONS PROCESSED. 



Explanation ; The length of the PLIXOPT initial string is 
outside the permitted range 0< length <250. No 
compile-time analysis of PLIXOPT takes place and 
message IBM016I - PLIXOPT not a valid execution- time 
options string - will result on program initialization 
at execution-time. 



IEL0958I E 



NO VALID OPTIONS IN 'PLIXOPT* 'INITIAL* STRING. 
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NO VALID OPTIONS IN 'PLIXOPT* 'INITIAL* STRING. NO 
EXECUTION OPTIONS PROCESSED. 
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Explanation : No valid options have been found during 
compile -time analysis of PLIXOPT initial string. 
Message IBM016I - PLIXOPT not a valid execution-time 
options string - will result on program initialization 
at execution- time. 



IEL0959I E ONE OR MORE INVALID OPTIONS IN 'PLIXOPT* , INIlIAL , STRING. 

ONE OR MORE INVALID OPTIONS IN •PLIXOPT' • INITIAL • STRING. 
ONLY VALID EXECUTION OPTIONS PROCESSED. 



Explanation : One or more invalid options have 
been found and ignored during compile-time analysis of 
PLIXOPT initial string. Message IBM017I - Erroneous 
option in PLIXOPT has been ignored - will result on 
program initialization at execution. 



IEL0960I W 



GENERATED EXTERNAL NAMES MAY BE AMBIGUOUS. 



COMPILER GENERATED EXTERNAL NAMES MAY BE AMBIGUOUS IF THE 
PROGRAM IS LINK-EDITED WITH A PROCEDURE OF SIMILAR NAME. 



Explanation : The optimizing compiler will generate names 
for internal controlled variables and internal files, if 
used. These names are processed by the linkage editor. 
If two external PL/ I procedures with similar names, such 
as ATESTER and BTESTER are to be link-edited together, it 
is possible for both procedures to have the name /TESTER1 
generated for them. However, this cannot occur unless 
both procedures have at least 36 generated names each. 



IEL0961I S 



STATEMENT TOO LARGE, 



COMPILER RESTRICTION. 
EXECUTION UNDEFINED. 



STATEMENT TOO LARGE. RESULTS OF 



Explanation : The size of the statement may force the 
compiler to generate a set of instructions that exceeds 
4096 bytes of storage. The use of an RX branch 
instruction does not permit an offset that exceeds 4096. 
Consequently execution of the statement may produce 
unpredictable errors. 



Programmer Response : Divide the statement into two or 
more smaller statements. 



IEL0964I E EXTERNAL NAME D MAY CAUSE ERROR IN EXECUTION. 

Explanation : The compiler has detected two or more CSECTs 
with the same link-edit name for this compilation. The 
linkage editor resolves all references to this name using 
the first encountered CSECT with this name. Execution 
yields unpredictable results. (Currently, this message 
is issued only if the link-edit name is SYSPINT.) 
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IEL0966I E EXTERNAL NAME D EXCEEDS N CHARACTERS. 

COMPILER RESTRICTION. EXTERNAL NAME D TOO LONG. NAME 
SHORTENED TO N CHARACTERS. 



Example : 

DCL ABCDEFGHI FILE . . . ; 



Explanation : Since external identifiers in PL/I are 
resolved by the linkage editor, it follows that such names 
should not exceed the limit imposed by the linkage editor 

on the length of names. The method of truncation used by 
the compiler will, in many cases, create unique 
identifiers so that the compilation can continue, and 
linkage editing and execution* may be successful. 



IEL0967I W D TRUNCATED TO N CHARACTERS, 

COMPILER RESTRICTION. EXTERNAL ENTRY NAME D WITH 
INTERLANGUAGE OPTION IS TOO LONG. NAME TRUNCATED 
TO FIRST N CHARACTERS. 



Ex planation : In PL/I the usual method of truncating 
external names is to concatenate the first f^ur and last 
three characters to form a seven-character identifier. 
External names for COBOL, FORTRAN, and ASSEMBLER routines 
can be up to eight characters in length, and any 
truncation of names of greater length than this involves 
the removal of the excess characters. To permit inter- 
language communication, PL/I adopts this technique for 
identifiers that are associated with COBOL, FORTRAN, or 
ASSEMBLER routines. 



IEL0968I U OVERFLOW CONDITION RAISED WHEN CONVERTING CONSTANT. 

OVERFLOW CONDITION RAISED WHEN CONVERTING CONSTANT WHICH 
IS OUTSIDE ALLOWED RANGE. 

Explanation ; Floating point constant is outside the range 
and cannot be converted to its true value. (Absolute 
value exceeds 7.23700E75.) 

Programmer Response : Verify that constant is in correct 
range. See "Chapter 3" of the PL/ I Language Reference 
Manual for information on floating point numbers. 
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IEL0969I E NO LABEL ON •FORMAT* STATEMENT. 

•FORMAT* STATEMENT HAS NO LABEL. STATEMENT IGNORED. 

Example ; 

F: ; 
FORMAT (A) ; 

IEL0970I U COMPILER CANNOT PROCEED. ERROR N DURING PHASE P. CORRECT 
SOURCE AND RE- COMPILE. 

COMPILER ERROR NUMBER N DURING PHASE P. COMPILER UNABLE 
TO PROCEED. CORRECTION OF SOURCE ERRORS MAY LEAD TO 
SUCCESFUL COMPILATION. 

Explanation Errors have prevented succesful compilation. 

A detailed explanation of the error number is 
given in "Appendix: Error and Restriction Numbers" 
in this publication. 



Programmer Response ; Correct the errors indicated by 
other messages and recompile the progranr. 



IE! 09711 W FIRST USE OF OPTION 1 FOR FILE D IGNORED. 

ENVIRONMENT OPTION T SPECIFIED MORE THAN ONCE IN 
DECLARATION OF FILE D. FIRST USE IGNORED. 



Example ; 

DCL A PILE ENV (RECSIZE ( 20 )RECSIZE ( 20) ) ; 



IEL0983I W EXTERNAL NAME D EXCEEDS N CHARACTERS 

EXTERNAL NAME D EXCEEDS N CHARACTERS. 
EXECUTION IS UNDEFINED IF D IS THE SAME AS A 
COMPILER GENERATED NAME. 



Explanation; An eight-character external entry 
name has been specified. It has been accepted 
without truncation. However, if the name used 
is the same as a name that is generated by the 
compiler during this compilation, then unexpected 
results may occur* 



IEL0989I I 



RECORD I/O FUNCTION PERFORMED BY SUBROUTINE CALL. 

•TOTAL" OPTION SPECIFIED BUT RECORD I/O FUNCTION PERFORME 
BY SUBROUTINE CALL. 

Example ; 
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DCL X RECORD ENV (FE,RECSIZE (N) , TOTAL) , 

Y CHAR(80) , 

N FIXED BINARY (3 1,0) STATIC; 
READ FILE(X) INTO(Y); 

Explanation : A record I/O statement is performed in-line 
only if the TOTAL option is specified and all the 
environment options are known at the time of ccirpilation. 
In the example shown, the record size of file X was 
declared as "N", and was thus not known at the time of 
compilation. Therefore, although the TOTAL option was 
specified, the READ statement must be performed by a 
library call- The message may also be produced if the 
record size and the length of the record variable differ. 

Programmer Response ; Examine the statement giving rise 
to the message, and check the file and the variable used 
in the statement, to determine whether information 
supplied at execution time could have been made known 
at compilation time. 



IEL0990 E 



•PASSWORD" ENVIRONMENT OPTION SPECIFIED WITHOUT 'VSAM*. 



•PASSWORD' ENVIRONMENT OPTION SPECIFIED WITHOUT 'VSAM' 
ENVIRONMENT OPTION IN FILE D. 'VSAM* ASSUMED. 

Explanation : A password can be declared only for a VSAM 
file. 



IEL0991I U 



PROGRAM TOO LARGE. COMPILATION TERMINATED IN PHASE P. 



COMPILER RESTRICTION. PROGRAM TOO LARGE. COMPILATION 
TERMINATED IN PHASE P. 



Explanation : The program contains many source variables 
or procedure invocations which require aggregate 
temporaries, or many internal procedure or begin blocks. 
Information about these is held in the compiler directory 
whose capacity has been exceeded. The problem is more 
likely to occur when OPT (TIME) compiler option is used 
since extra demands are placed on dictionary space. 
Compilation is terminated as the compiler dictionary has 
been filled up {and no further information can be held 
in it ) . 



Programmer Response : Divide the program into two or more 
parts and compile these separately. Alternatively, 
increase the storage available to the compiler; this may 
aleviate the problem. 



NOTE : Message numbers IEL2233I through IEL2259I are preprocessor 
messages. Preprocessor messages are documented at the beginning 
of Part I. 
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PART II; EXECUTION-TIME (IEM) MESSAGES 



Execution-time messages are produced by the PL/I Transient Library and 
are printed on the device associated with the file SY SPRINT. If SYSPRINT 
is unusable the message will be printed on the operator's console. 
However, any message associated with the system action for the CHECK 
condition or the COPY or snap options will not be transmitted to the 
operator's console. 

Messages are printed at execution time when: 

1. An error occurs for which there is no specific on-condition in 
PL/ I. (A message is printed and the ERROR condition is raised). 

2. An on-condition is raised for which there is no on-unit in the 
program and for which the standard system action includes printing 
an execution- time message. 



FORMAT OF EXECUTION-TIME MESSAGES 

Execution-time messages have the following format: 

mess age- number - ONCODE=nnnn •condition-name* CONDITION RAISED - text 
- location message 

Each message number is of the form IBMnnn, where "IBM" indicates that 
the message is a PL/I execution-time message, and "nnn" is the number of 
the message. The final character "I" or "A" indicates to the operator 
whether the message is informatory or whether he should take some 
action . 

The on-code is that for the condition name that follows. The text 
"ONCODE=" and the actual on-code generated by the system only appear 
when the message is printed; they are not listed in the message texts in 
this publication. 

The condition name is the PL/ I on-condition raised in association 
with the exceptional or error condition that caused the message to be 
printed. The condition name and the text "CONDITION RAISED" are not 
normally listed in the message texts in this publication, although they 
are always included when the message is printed. However, certain 
messages have no following main text or a main text such as "EY 'SIGNAL' 
STATEMENT" or "IN I/O STATEMENT", and for these messages the condition 
name and the text "CONDITION RAISED" form part of the message text in 
this publication. 

The nature of the location message will depend on whether the PL/I 
program was compiled with the GOSTMT option or the NOGOSTMT option. If 
GOSTMT was specified, the location message will be as follows: 

IN STATEMENT nnnn AT OFFSET nnnnnn IN PROCEDURE WITH ENTRY entry-name 

If NOGOSTMT was specified, the location message will be as follows: 

AT OFFSET nnnnnn IN PROCEDURE WITH ENTRY entry-name 

The offset given is always from the entry point immediately preceding 
the error. If there are no secondary entry points, the offset will be 
from the start of the procedure. 
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The location messages generated by the system only appear when the 
messages are printed; they are not listed in the message texts in this 
publication. 

An example of an execution-time message in the form in which it will 
be printed is given below: 

IBM037I ONCODE=0612 •CONVERSION' 1 CONDITION RAISED CONVERSION FROM 
CHARACTER TO BIT ON INPUT AFTER •TRANSMIT' DETECTED IN 
STATEMENT 207 AT OFFSET 004A8C IN PROCEDURE WITH ENTRY PROG1 

Many messages are not self-explanatory because they are in a 
necessarily concise form, and an explanation, an example, or a 
programmer response, or a combination of any of these, has been added 
where necessary. 



SYMBOLS IN MESSAGES 

Many of the messages reproduced in this publication contain symbols 
indicating where the system will insert information when it prints the 
message. The symbols used are: 

ccc - A condition name. 

eee - An entry name. 

fff - A file name. 



BEFORE CALLING IBM... 

Unless the programmer response for the message specifies otherwise, 
before calling IBM for programming support with regard to an execution- 
time error: 

1- Ensure that the program includes an active ERROR on-unit that 
includes the statement: 

CALL PLIDUMPCHBM; 

2. Run the program again. 

If the problem recurs, ensure that the following are available: 

1. Listings of the source program, the object program, and the job 
control statements for the execution of the program. 

2. Relevant data sets. 

3. Job stream (job control statements and data) in machine readable 
form- 

The requirements for problem determination and APAR submission are 
given in the programmer's guide for this compiler. 
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IBM002I INTERRUPT DURING PL/I PROGRAM- MANAGEMENT LIBRARY ROUTINE. 
PROGRAM TERMINATED. 

Explanation ; An interrupt has occurred during the handling of 
a PL/I on- condition or error condition in the program 
management routine or a routine invoked by it» It indicates 
that a disastrous error has occurred during execution of the 
program, such as the overwriting of control blocks or sections 
of code. The program is terminated, and a return code of 4000 
is produced. A dump is produced if there is a SYSUDUMP or 
SYSABEND DD statement for the job step. The most common cause 
of this type of error is the overwriting of control information 
by the PL/l program. Usually this is caused by arrays 
exceeding their bounds or by the SUBSTR function having invalid 
arguments. However, this message can occur if execution of a 
GOTO statement is attempted using a label variable which is 
uninitialized or has an invalid value. 

Programmer Response ; Refer to the chapter "Program Checkout" 
in the programmer's guide for this compiler for advice on how 
to tackle this type of error. If arrays are used in the 
program, recompile the program enabling SUBSCRIPTRANGE, and 
execute it again. Similarly, if SUBSTR is used, recompile the 
program enabling STRINGRANGE. (If both are used, enable both 
conditions.) 

If a GOTO statement containing a label variable is used, enable 
CHECK for the label variable (s), and execute the program again. 

IBM003I ERRONEOUS 'PARM* OPTION HAS BEEN IGNORED. 

Example ; 

(a) //A EXEC PGM=B, 

// PARM='USERNOSLASH« 

(b) // EXEC PGM=B,PARM=ISASIZE(100K,20K,3) 

Explanation ; Either the PARM field passed at execution 
contained data which was not recognizable as supported keyword 
options, or user information was not separated from the PL/I 
information by the character */'. The whole PARM field is 
passed to the main procedure unchanged. 

The message is also produced if the multitasking arguments 
to ISASIZE are specified for a program that was link-edited 
without the multitasking library (PLITASK) . In the example 
(b) given, the second and third arguments to ISASIZE are 
ignored. 

Programmer Response ; Correct the misspelled word, or add a slash 
between the PL/I and user data, or specify ISASIZE with a 
single argument only. 

IBM005I TOO MANY FILES AND CONTROLLED VARIABLES. 

Explanation ; The total length of the pseudo-register vector 
for the program is more than 4096 bytes. Four bytes are used 
for each file constant, four bytes for each controlled 
variable, and four bytes for each fetched procedure. 
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IBM006I NO MAIN PROCEDURE, PROGRAM NOT EXECUTED. 



Explanation ; An attempt has been made to execute a program 
containing one or more external PL/I procedures, none of which 
has the MAIN option in its PROCEDURE statement. 



Programmer Response ; Ensure that the first external PL/l 
procedure to be invoked has the MAIN option in its PROCEDURE 
statement. 



IBM008I NO MAIN STORAGE AVAILABLE. 



Explanation ; There is insufficient main storage for program 
execution to begin . 



Programmer Response ; If possible, arrange for the program to 
be executed in a larger partition or region of main storage. 
Otherwise, convert the program into a number of smaller phases 
with a root phase that remains in storage throughout execution 
and overlay phases that are loaded when required for execution 
and are overwritten by subsequent phases when no lcnger 
required. For further information, see the programmer's guide. 



IBM009I A PL/I TASK HAS TERMINATED ABNORMALLY WITH (SYSTEM 
CODE=SSS|USER CODE=nnnn). PROGRAM TERMINATED. 



Explanation ; A task has terminated abnormally without entering 
the usual termination routines,. 



IBM010I PROGRAM TERMINATED, SYSTEM CODE=SSS jUSER CODE=nnnn . 

Explanation ; A non-multitasking program has been terminated by 
the issue of an ABEND macro. If the code is sss 
(where s is a hexadecimal digit), the macro was issued by the 
control program. If the code is nnnn (where n is a 
decimal digit), the macro was issued by the problem program. 

A PL/I library error- handling routine will attempt to put out 
this message on SYSPRINT if open; if not it will appear at the 
console. If a PLIDUMP DE statement is present, an attempt will 
be made to produce a PL/I dump- If insufficient main storage 
is available the message will not be put out and a system dump 
will be produced with the appropriate system completion code. 
A system completion code of 80A may indicate that there is not 
enough main storage available to produce the message, load the 
dump routines, and initialize program execution. The user-code 
form of this message can occur only if a user-written routine 
is called from PL/I and if this routine issues an ABEND macro. 

IBM011I TASK taskname TERMINATED, SYSTEM CODE=sss| USER CODE=nnnn. 

Explanation ; The task has been terminated abnormally by the 
issue of an ABEND macro. If the code is sss (where s is a 
hexadecimal digit) , the macro was issued by the control 
program. If the code is nnn (where n is a decimal digit), 
the macro was issued by the problem program, see also the 
explanation for message IBM010I. 
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IBM012I ISASIZE INSUFFICIENT- PBOGRAM TERMINATED. 



Explanation ; The initial storage area (ISA) and 251 further 
segments of storage have been allocated. No further segments 
can be allocated. The program is terminated with a return code 
of 1000. 



Programmer Response : Check that the program was not looping 
recursively. If the program is running correctly the ISASIZE 
parameter should be increased. The REPOR1 option can be used 
to determine the storage required. 



IBM013I NO SUITABLE PLIDUMP DD CARD. 



Explanation ; The PLIDUMP routines could not open the PLIDUMP 
file because the PLIDUMP DD card for this job step was omitted 
or specified unsuitable options. No output is given by PLIDUMP 
under these conditions, but the options specified (or 
defaulted) are used to determine whether the program continues 
or terminates- 



Programmer Response ; Supply a suitable PLIDUMP DD card that 
specifies a sequential access method for output. 



IBM014I TRANSIENT LIBRARY LEVEL LOWER THAN RESIDENT. 



Explanation : One of the initialization modules has detected 
that the transient library in use comes from a release prior to 
that of the resident library. Compatibility is not guaranteed 
in these circumstances, and the program may fail when it is 
executed. 



Programmer Response ; Even if failure does not occur, it is 
advisable to install the latest version of the transient 
library and rerun the program; this message should not then 
appear . 

IBM015I INVALID SPECIFICATION OF 'COUNT' OR 'FLOW OPTION. OPTION 
IGNORED. 

Example ; If no compilation in the job has the 'COUNT* or 
'FLOW option, the following statement is in error: 

DCL PLIXOPT STATIC CHAR (4) VAR EXT INIT ( ' FLOW ) ; 

Explanation ; COUNT and FLOW are only valid at execution time 
if one or the other was specified at compile time, and COUNT 
requires the resident library to be at a release the same 
as or greater than the current release of the compiler. 

IBM016I PLIXOPT IS NOT A VALID EXECUTION-TIME OPTIONS STRING. 

Example : 

DCL PLIXOPT EXT INIT (12345); 

Explanation : A static external variable named PLIXOPT has 
been found, but either it was not CHARACTER VARYING with 
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current length less than or equal to 250, or it contained no 
valid initialization options. 

Programmer Response : If the variable PLIXOPT in the source 

program was intended to set execution- time options, 

correct its attributes or contents. If not,, change its name. 

IBM017I INVALID OPTION IN PLIXOPT HAS BEEN IGNORED. 

Example ; 

DCL PLIXOPT CHAR (20) VAR INIT( 'FLOW (10, 5) r TEPORT' ) EXT; 

Explanation : The options specified in the variable PLIXOPT 
contain one or more errors. 

IBM018I ERROR IN IMPLICIT CLOSE. 

Explanation ; An error condition was detected during the 
implicit closing of a record I/O file. The possible error 
conditions are: 

1. TRANSMIT (if last operation was a LOCATE, or if 
the file has the attributes REGIONAL, SEQUENTIAL, 
and OUTPUT) . 

2. I/O Sequence error. 

3. KEY(VSAM). 

Programmer Response : Close the file explicitly to cbtain 
normal condition handling. 

IBM020I 'CONVERSION' CONDITION RAISED BY 'SIGNAL' STATEMENT- 

Explanation : The program contains a SIGNAL statement to raise 
the 'CONVERSION* condition for which there is no on-unit. 

Programmer Response : Either remove the SIGNAL statement or 
include an on-unit for the CONVERSION condition in the program. 

IBM021I UNKNOWN SOURCE ATTRIBUTES ON INPUT. 

Explanation : The CONVERSION condition has been raised within a 
GET LIST or GET DATA statement with the FILE option. The 
attributes of the source data cannot be determined. For 
example : 

DCL (A,B) CHAR(14); 
GET LIST (A,B) 

Where the input stream contains 'PIG'C, •DOG'," the 

condition will be raised when the first item is encountered. 
The value for ONSOURCE will be: "'PIG'C", and that for ONCHAR 
will be: "C" . 

IBM022I UNKNOWN SOURCE ATTRIBUTES ON INPUT AFTER 'TRANSMIT* DETECTED. 

Explanation : The CONVERSION condition has been raised after an 
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error has caused the TRANSMIT condition to be raised. For an 
explanation of the conversion error, see the explanation given 
for message IBM021I. 

IBM023I UNKNOWN SOURCE ATTRIBUTES. 

Explanation : The CONVERSION condition has been raised within a 
GET LIST STRING or GET DATA STRING statement. For an 
explanation of the conversion error, see the explanation given 
for message IBM021I. 

IBM024I CONVERSION FROM F-FORMAT ON INPUT 

Explanation : An invalid character has been detected in an 
F-format input field. 

Programmer Response : Include a suitable on- unit in the program 
to monitor errors in the input data that are revealed by the 
CONVERSION condition. Use the ONSOURCE and ONCHAR built-in 
functions to identify the error and the ONSOURCE and ONCHAR 
pseudovariables to assign a valid numeric value so that the 
program can continue to be executed normally. Otherwise check 
that all input is in the correct format before executing the 
program . 

IBM025I CONVERSION FROM F-FORMAT ON INPUT AFTER 'TRANSMIT* DETECTED 

Explanation : An invalid character has been detected in an 
F-format input field. A transmission error has also occurred; 
the conversion error may be directly attributable to the 
transmission error. 

Programmer Response : If the conversion error recurs after the 
transmission error has been eliminated, take the steps given 
for the preceding message. 

IBM027I CONVERSION FROM E- FORMAT ON INPUT 

Explanation : An invalid character has been detected in an 
E- format input field. 

Programmer Response : Take the steps advised for conversion 
errors in message IBM024I. 

IBM028I CONVERSION FROM E-FORMAT ON INPUT AFTER •TRANSMIT' DETECTED 

Explanation : An invalid character has been detected in an 
E-format input field. A transmission error has also occurred; 
the conversion error may be directly attributable to the 
transmission error. 

Programmer Response : If the conversion error recurs after the 
transmission error has been eliminated, take the steps advised 
for message IBM 02 41. 
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IBM029I CONVERSION FROM B-FORMAT ON INPUT 



Explanation : An invalid character has been detected in a 
B-format input field. 



Programmer Response ; Include a suitable on- unit in the program 
to monitor errors in the input data that are revealed by the 
CONVERSION condition. Use the ONSOORCE and ONCHAR built-in 
functions to identify the error and the ONSOURCE and ONCHAR 
pseudovariables to assign a valid bit character so that the 
program can continue to be executed normally. Otherwise check 
that all input is in the correct format before executing the 
program . 



IBM031I 



CONVERSION FROM B-FORMAT ITEM ON INPUT AFTER 'TRANSMIT' 
DETECTED . 



Ex planation ; An invalid character has been detected in a 
B-format input field. A transmission error has also occurred; 
the conversion error may be directly attributable to the 
transmission error. 



Programmer Response ; If the conversion error recurs after the 
transmission error has been eliminated* take the steps given 
for message IBM029I. 



IBM032I CONVERSION FROM •CHARACTER' TO ARITHMETIC 



Explanation ; An invalid character has been detected in a 
character string that is being converted to an arithmetic data 
type- 



Programmer Response ; If the error is in the conversion of a 
PL/I source program constant or in the conversion cf a 
character string created during the execution of the program, 
correct the source program, recompile it, and rerun it. 



IBM033I CONVERSION FROM CHARACTER TO ARITHMETIC ON INPUT OR OUTPUT 



Explanation : A character which is invalid for conversion to an 
arithmetic form has been detected in one of the following: 

1- An arithmetic constant in a list-directed or data- 
directed item. 

2. A character constant being converted to an arithmetic form 
in a list-directed or data-directed item. 

3,. An A-format input field being converted to an arithmetic 
form. 



Programmer Response ; Take the steps advised for message 
IBM024I. 



IBM034I CONVERSION FROM CHARACTER ON INPUT AFTER TRANSMIT DETECTED 
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Explanation ; A character which is invalid for conversion to an 
arithmetic form has been detected in one of the following: 

1. An arithmetic constant in a list-directed or data-directed 
input item. 

2. A character constant being converted to an arithmetic form 
in a list-directed or data-directed input iteir. 

3. An A-format input field being converted to an arithmetic 
form. 

A transmission error has also occurred; the conversion error 
may be directly attributable to the transmission error. 

Programmer Response : If the conversion error recurs after the 
transmission error has been eliminated, take the steps advised 
for message IBM 0241. 



IBM035I CONVERSION FROM CHARACTER TO BIT 



Explanation : An invalid character has occurred in a character 
string that is being converted to a bit string. 



Programmer Response : If the error is in the conversion of a 
PL/I source program constant or in the conversion of a 
character string created during the execution of the program, 
correct the source program, recompile it, and rerun it. 



IBM036I CONVERSION FROM CHARACTER TO BIT ON INPUT OR OUTPUT 



Explanation : A character other than or 1 appears in one of 
the following: 

1. A bit constant in a list-directed or data -directed item. 

2. A character constant being converted to bit form in a 
list-directed or data-directed item. 

3. An A format input field being converted to bit form. 

4. A E-format input field (excluding any leading or trailing 
blanks) . 



IBM037I CONVERSION FROM CHARACTER TO BIT ON INPUT AFTER 'TRANSMIT* 
DETECTED 



Explanation : A character other than 1 or appears in one of 
the following: 

1- A bit constant in a list-directed or data-directed input 
item. 

2. A character constant being converted to bit form in a 
list-directed or data-directed input item. 

3. An A-format input field being converted to bit form. 

4. A B-format input field (excluding any leading or trailing 
blanks) . 
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A transmission error has also occurred; the conversion error 
may be directly attributable to the transmission error. 

Programmer Response : If the conversion error recurs after the 
transmission error has been eliminated, take the steps advised 
for message IBM024I. 

IBM038I CONVERSION TO PICTURE CHARACTER STRING 

Explanation ; A character that does not match the picture 
specification has occurred in a conversion to a PICTURE 
character string. 

Programmer Response ; Ensure that the character string that is 
to be converted to a PICTURE character string is suitable for 
the conversion. If necessary, use the ONSOURCE and ONCRAR 
built-in functions to identify the error and the ONSOURCE and 
ONCHAR pseudovariables to replace an erroneous character with a 
character that is valid for conversion. 

IBM039I CONVERSION TO PICTURE CHARACTER STRING ON INPUT OR OUTPUT 

Ex planation ; A character that does not match the picture 
specification has occurred in a stream-oriented item that 
requires conversion to a PICTURE character string. 

Programmer Response ; Either ensure that all input data to the 
program is in the correct format or take the steps given for 
the preceding message to ensure that the program has adequate 
error recovery facilities allowing it to comment on any invalid 
data found in its input and to continue processing. 

IBM040I CONVERSION TO PICTURE CHAR STRING ON INPUT AFTER 'TRANSMIT 1 
DETECTED 

Explanation ; A character that does not match the picture 
specification has occurred in a stream-oriented input item that 
requires conversion to a PICTURE character string. A 
transmission error has also occurred; the conversion error may 
be directly attributable to the transmission error. 

Programmer Response ; If the conversion error recurs after the 
transmission error has been eliminated, take the steps advised 
for message IBM039I. 

IBM042I CONVERSION FROM P-FORMAT (ARITH) ON INPUT 

Explanation ; An edit-directed P- format input item contains a 
character that does not match the picture specification. 

Programmer Response ; Either ensure that all input data to the 
program is in the correct format before executing the program 
or use the program to check the data. If necessary, use the 
ONSOURCE and ONCHAR built-in functions to identify the error 
and the ONSOURCE and ONCHAR pseudovariables to replace an 
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erroneous character with a character that is valid for 
conversion. 



IBM0H3I 



CONVERSION FROM P-FORMAT (ARITH) ON INPUT AFTER "TRANSMIT' 
DETECTED 



Explanation : An invalid character has been detected in a 
P- format (arithmetic) input field. A transmission error has 
also occurred; the conversion error may be directly 
attributable to the transmission error. 



Programmer Response : If the conversion error recurs after the 
transmission error has been eliminated, take the steps advised 
for message IBM0U2I. 



IBM045I CONVERSION FROM P-FORMAT (CHAR) ON INPUT 



Explanation : An invalid character has been detected in a 
P- format input item. 



Programmer Response : Either ensure that all input data to the 
program is in the correct format before executing the program 
or use the program to check the data. If necessary, use the 
ONSOURCE and ONCHAR built-in functions to identify the error 
and the ONSOURCE and ONCHAR pseudovariables to replace an 
erroneous character with a character that is valid for 
conversion. 



IBM046I CONVERSION FBOM P-FORMAT (CHAR) ON INPUT AFTER 'TRANSMIT* 
DETECTED 



Explanation : An invalid character has been detected in a 
P-format (character) input item. A transmission error has also 
occurred; the conversion error may be directly attributable to 
the transmission error. 



Programmer Response : If the conversion error recurs after the 
transmission error has been eliminated, take the steps advised 
for message IBM045I. 



IBM100I 'NAME' CONDITION RAISED BY 'SIGNAL' STATEMENT. 



Explanation : The program contains a SIGNAL statement to raise 
the NAME condition for which there is no on-unit. 



Programmer Response : Either remove the SIGNAL statement or 
include an on-unit for the NAME condition in the program. 



IBM101I INVALID ELEMENT- VARIABLE IN STREAM FOR 'GET FILE DATA' 



Explanation : The NAME condition is raised immediately if any 
of the following errors is detected: 

1. An identifier in the input stream has no counterpart in 
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the data list of the GET statement, or the GET statement 
has no data list and an identifier that is not known in 
the block is encountered in the stream. 

2. Invalid blank characters are found within an identifier in 
the input stream. 

3» The name field or part of a qualified name is emitted. 

4. There are more than 256 characters in a fully-qualified 
name. 

5. Blanks are found within an array subscript other than 
between the optional sign and the decimal digits. 

6. An array subscript is missing or indicates too many 
dimensions. 

7. A value in a subscript is not a decimal digit. 

8. The subscript is beyond the declared range of subscripts 
for a particular array. 

9. The left-parenthesis is missing after the name of an 
array . 

10. A character, other than "=" or a blank, is found after a 
right-parenthesis that delimits an array subscript in the 
input stream. 

11. The end-of-file or a non-blank delimiter is found before 
"=" in an item in the input stream. 



Programmer Response ; Use the DATAFIELD condition built-in 
function in a NAME on-unit to obtain the invalid data item. 



IBM120I 'RECORD 1 CONDITION RAISED BY 'SIGNAL* STATEMENT 



Explanation : A SIGNAL statement to raise the RECORD condition 
has been executed,. There was no on-unit for this condition. 



Programmer Response : Supply an on-unit for the RECORD 
condition or remove the SIGNAL statement. 



IBM121I LENGTH OF RECORD VARIABLE LESS THAN RECORD LENGTH 



Explanation : This message is produced for records that are 
longer than the associated PL/ I variable. For a READ 
statement, the record is truncated to the length of the 
variable in the INTO option. For a LOCATE statement (F-format 
records only), a buffer is not allocated. Fcr a WRITE 
statement (F-format records only) , the record is transmitted 
with additional bytes to make up the length. The contents of 
the padding bytes are undefined. For a REWRITE statement, the 
record is replaced by the shorter record made up to the correct 
length with the appropriate number of padding bytes, the 
contents of which are undefined. 



Programmer Response : Either supply an on-unit for the RECORD 
condition so that the program can continue to be executed, or 
modify the program to make the length of the record variable 
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the same as the length of the records on the data set. The 
language reference manual for this compiler gives details of 
how such records are handled when the RECORD condition is 
raised. 



IBM122I LENGTH OF RECORD VARIABLE GREATER THAN RECORD LENGTH 



Explanation : This message is produced for records that are 
shorter than the associated PL/I variable. For a READ 
statement using F-format records and a fixed-length variable in 
the INTO option, the excess bytes in the variable are 
undefined. For a LOCATE statement, where the maximum length of 
the records is less than the length of the PL/I variable, the 
buffer is not allocated. For a WRITE statement, the variable 
in the FROM option is longer than the maximum length of the 
records, and is truncated to the maximum record length. For a 
REWRITE statement, the variable in the FROM option is longer 
than the record it is to replace, and is truncated to the 
length of this record. 



Programmer Response ; Either supply an on-unit for the RECORD 
condition so that the program can continue to be executed, or 
modify the program to make the length of the record variable 
the same as the length of the records on the data set. The 
language reference manual for this compiler gives details of 
how such records are handled when the RECORD condition is 
raised. 



IBM123I 'WRITE* OR •LOCATE* VARIABLE HAS ZERO LENGTH 



Explanation : A WRITE or REWRITE statement has attempted to 
transmit a record variable of zero length, or a LOCATE 
statement has attempted to obtain buffer space for a zero 
length record variable. 



Programmer Response : Modify the program to ensure that the 
varying- length string used as a record variable is not a null 
string when the WRITE, REWRITE, or LOCATE statement is 
executed. 



IBM124I ZERO LENGTH RECORD READ FROM REGIONAL DATA SET 



Explanation : A record of zero length has been read from a 
REGIONAL data set associated with a DIRECT file. A zero-length 
record on a direct-access device indicates the end of the data 
set. However, the message above will only be produced if the 
data set has been created incorrectly. 



Programmer Response : Check that the data set was created 
correctly as a regional data set. Recreate the data set if 
necessary and if it is possible to do so. Check also that the 
record has been accessed with a key that is valid for the data 
set. 



IBM125I 



'RECORD* VARIABLE TOO SHORT TO CONTAIN EMBEDDED KEX. 



Explanation : A WRITE or REWRITE statement has attempted to 
transmit, or a LOCATE statement has attempted to allocate 



Part II: Execution-time(IBM) Messages 203 
*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 192 *** 



buffer space for, a record variable too short to contain the 
data set embedded key. For a WRITE or REWRITE statement, no 
transmission takes place; for a LOCATE statement, a buffer 
is not allocated. 



IBM140I 'TRANSMIT^ CONDITION RAISED BY 'SIGNAL* STATEMENT, 



Explanation ; The program contains a SIGNAL statement to raise 
the TRANSMIT condition for which there is no on-unit. 



Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the TRANSMIT condition in the program. 



IBM141I UNCORRECTABLE ERROR IN OUTPUT 



Explanation ; Data management routines have detected an 
uncorrectable error while transmitting output data between main 
storage and an external storage device. The condition is 
raised on the completion of a WRITE, REWRITE, or LOCATE 
statement. For BUFFERED files, this condition may be raised 
only after the execution of several I/O statements following 
the I/O statement which transmitted the record. No further 
processing of an OUTPUT file, other than a file associated with 
a unit record device, can occur. Processing of an UPDATE file 
may continue. For INDEXED data sets, the condition can also 
occur while searching through the indexes or tracing an 
overflow record. 



Programmer Response ; If the error recurs, obtain a dump of the 
input/output buffer areas by using PLIDUMP in a TRANSMIT 
on-unit. See the programmer's guide for details of PLIDUMP. 
The resultant output, together with all relevant listings and 
data sets, should be preserved for examination by IBM. 

IBM142I UNCORRECTABLE ERROR IN INPUT 

Ex planation ; Data management routines have detected an 
uncorrectable error while transmitting input data between main 
storage and an external storage device. If the block contains 
VS-format records, the error is raised once only f cr the block. 
Otherwise, the condition is raised on the completion of a READ 
or REWRITE statement for each record in the block that contains 
the error and for every item transmitted by GET statements from 
a block that contains the error. The contents of the record or 
data item are undefined. However, processing of subsequent 
records in the input file can be continued. For INDEXED data 
sets, the condition can be raised while searching the indexes 
or tracing an overflow record. 

Programmer Response ; If the error recurs, obtain a dump of the 
input/output buffers by using PLIDUMP in a TRANSMIT on-unit. 
See the programmer's guide for details of PLIDUMP. The 
resultant output, together with all relevant listings and data 
sets, should be preserved for examination by IBM. 

IBM143I "TRANSMIT' CONDITION RAISED. UNREADABLE OMR DATA. 

Explanation ; One or more OMR columns contain a marginal 
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mark, weak mark, or poor erasure that cannot be read. The 
condition is raised on completion of the READ operation for 
the card. An X^F* character is substituted for unreadable 
characters, and also put in the last byte of the record. The 
card is stacker selected to the alternate stacker. 



IBM144I WRITE ERROR IN INDEX SET. 

Explanation ; Data management has detected a physical error 
whilst attempting to write on the index set of a VSAM KSDS. 
The condition is raised on the completion of a WRITE, REWRITE, 
LOCATE, or DELETE statement. No further processing of an 
OUTPUT file can occur. Processing of an UPDATE file may 
continue. 

IBM145I READ ERROR IN INDEX SET. 

Explanation : Data management has detected a physical error 
whilst attempting to read from the index set of a VSAM KSDS. 
The condition is raised on the completion of a READ, WRITE, 
REWRITE, LOCATE, or DELETE statement. No further processing 
of an OUTPUT file can occur. Processing of an UPDATE file 
may continue. If the error occurs on a READ statement, no 
data is transferred to the record variable- For sequential 
access, data set positioning may be lost, causing a subsequent 
READ without KEY to raise ERROR (see message IBM831I) 

IBM1U6I WRITE ERROR IN SEQUENCE SET. 

Explanation ; Data management has detected a physical error 
whilst attempting to write on the sequence set of a VSAM 
KSDS. The condition is raised on the completion of a WRITE, 
REWRITE, LOCATE, or DELETE statement. No further processing 
of an OUTPUT file can occur. Processing of an UPDATE file may 
continue. 

IBM147I READ ERROR IN SEQUENCE SET. 

Explanation : Data management has detected a physical error 
whilst attempting to read from the sequence set of a VSAM KSDS. 
The condition is raised on the completion of a READ, WRITE, 
REWRITE, LOCATE, or DELETE statement. No further processing 
of an OUTPUT file can occur. Processing of an UPDATE file 
may continue. If the error occurs on a READ statement, no 
data is transferred to the record variable. For sequential 
access, data set positioning may be lost, causing a subsequent 
READ without KEY to raise ERROR (see message IBM831I) 



IBM160I •KEY' CONDITION RAISED BY •SIGNAL' STATEMENT. 



Explanation : The program contains a SIGNAL statement to raise 
the KEY condition for which there is no on-unit. 



Programmer Response : Either remove the SIGNAL statement or 
include an on-unit for the FEY condition in the program. 



IBM161I KEY SPECIFIED CANNOT BE FODND 



Explanation : A READ, REWRITE, or DELETE statement specified a 
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recorded key which could not be found on the data set. In the 
case of an INDEXED data set, the key in error is either higher 
than the highest level index or the record is not in the prime 
area or the overflow areas of the data set. In the case of a 
DIRECT file associated with a data set with REGIONAL 
organization, the key in error is not in the specified region 
or within the search limit defined by the LIMCT subparameter of 
the DCB parameter. 

Programmer Response ; Determine why the key was incorrect and 
modify the program or the data set as necessary. Use of the 
ONKEY built-in function in a KEY on-unit will aid in 
determining the value of the erroneous key. 

IBM162I KEY SPECIFIED ALREADY IN USE ON DATA SET 

Explanation : In the case of data set with INDEXED 
organization, an attempt has been made to transmit a keyed 
record to a data set which already holds a record with the same 
key. In the case of a data set with REGIONAL(l) or REGIONAL (2) 
organization that is being created sequentially, an attempt has 
been made to transmit a record to a region that already 
contains a record. 

Programmer Response : Either check the validity of the data 
that is being processed before executing the program or use the 
program to check the data. Use of the ONKEY built-in function 
in a KEY on-unit will aid in identifying an erroneous key, in 
correcting it, and in permitting processing to continue 
normally. 

IBM163I KEY VALUE IS LESS THAN VALUE OF PREVIOUS KEY 

Explanation : A key with a value that is less than the value of 
the preceding key has been detected during the creation or 
extension of an INDEXED or REGIONAL SEQUENTIAL data set. 

Programmer Response : Ensure that the records that are to be 
written onto an INDEXED or REGIONAL data set that is being 
created or extended are in the correct ascending key sequence 
order. Otherwise use a KEY on-unit to comment on the error 
and, where possible, to permit processing to continue normally,. 

IBM164I KEY SPECIFIED CANNOT BE CONVERTED TO VALID DATA 

Explanation : A WRITE, READ, REWRITE, DELETE, or LOCATE 
statement for a REGIONAL data set specified a key with a 
character-string value consisting entirely of blanks or 
containing characters other than 0-9 or blank as part of the 
region number- 

Programmer Response : Ensure that the key is in the correct 
format. If necessary, use the ONKEY built-in function in a KEY 
on-unit to identify the erroneous key. The on-unit can be used 
to report any such errors and allow processing to continue. 
Records associated with the erroneous keys can be transmitted 
in a subsequent run for which the keys have been corrected. 
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IBM165I KEY SPECIFIED IS INVALID 



Explanation : For an INDEXED data set, either the KEY or the 
KEYFRCM expression is a null string or an attempt has been made 
to rewrite a record where the embedded key of the replacement 
record is not equal to that of the record that is to be 
overwritten. For a REGIONAL data set, the key specified is a 
null string or is a string commencing with 'llllllll'B. 



Programmer Response : 
message. 



Follow the steps advised for the previous 



IBM166I KEY SPECIFIES POSITION OUTSIDE REGIONAL DATA SET 



Explanation : A WRITE, READ, REWRITE, or DELETE statement 
specifies a key whose relative record or track value exceeds 
the number of records or tracks respectively for the REGIONAL 
data set. 



Programmer Response : 
IBM164I. 



Follow the steps advised for message 



IBM167I NO SPACE AVAILABLE TO ADD KEYED RECORD 



Explanation : For a SEQUENTIAL file associated with an INDEXED 
data set, an attempt has been made to write or locate a record 
during the creation or extension of such a data set when the 
space allocated to the data set is full. For a DIRECT file 
associated with an INDEXED data set, there is no space in the 
available overflow areas to accept the overflow record caused 
by the insertion of a new record by a WRITE statement. 

For a DIRECT file associated with a REGIONAL data set, there is 
no space to add the record in the specified limit of search as 
specified in the LIMCT subparameter of the DCB parameter. Note 
that the data set is not necessarily full. 



Programmer Response : Use the ONKEY built-in function to 
identify the key value that caused the error. If the key is in 
error, correct it and recommence the job from the point reached 
when the error occurred. If the key is correct, organize the 
data set so that the rejected record can be accommodated. 



IBM168I 



•KEYFROM' 
SET. 



VALUE LIES OUTSIDE KEY RANGE (S) DEFINED FOR DATA 



Explanation : A WRITE or LOCATE statement specified a key 
with a value outside the key ranges specified for the data 
set when it was defined. (VSAM KSDS). 



IBM180I 'ENDFILE* CONDITION RAISED BY 'SIGNAL' STATEMENT. 



Explanation : The program contains a SIGNAL statement to raise 
the ENDFILE condition for which there is no on-unit. 



Programmer Response : Either remove the SIGNAL statement or 
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include an on-unit for the ENDFILE condition in the program. 



IBM181I "ENDFILE* CONDITION RAISED. 



Explanation : The end of an input file has been detected. 



Programmer Response ; Include an on-unit for the ENDFILE 
condition for each input file in the program to handle the 
end-of-file processing. 



IBM182I END OF FILE PREVIOUSLY ENCOUNTERED ON STREAM INPUT 



Explanation : The ENDFILE condition was raised when the file 
mark was encountered but an attempt is being made to read 
beyond the end of the file. Either an ENDFILE on-unit has been 
executed and a further attempt to read the file is being made 
or the end-of-file mark was encountered between items in the 
data list of the current GET statement. 



Programmer Response : If the program contains an ENDFILE 
on-unit, make sure that it does not attempt to read the file 
after the ENDFILE condition has been raised for it. If the 
error occurred during execution of a GET statement with two or 
more items in the data list, make sure that the GET statement 
can be completed by providing sufficient data items before the 
end-of-file mark is encountered,. 



IBM200I "UNDEFINEDFILE" CONDITION RAISED BY 'SIGNAL* STATEMENT. 



Explanation : The program contains a SIGNAL statement to raise 
the UNDEFINEEFILE condition for which there is no on-unit. 



Programmer Response : Either remove the SIGNAL statement or 
include an on-unit for the UNDEFINEDFILE condition in the 
program. 



IBM201I CONFLICTING DECLARE AND OPEN ATTRIBUTES. 



Explanation : An attribute in an OPEN statement conflicts with 
one in a DECLARE statement. The attributes may have been 
written explicitly or implied by other attributes, for example, 
DIRECT implies KEYED. Some RECORD input/output statements 
imply file attributes in an implicit OPEN statement, for 
example, LOCATE implies RECORD OUTPUT BUFFERED SEQUENTIAL. A 
list of conflicting attributes follows: 

BACKWARDS STREAM, OUTPUT/UPDATE, DIRECT, KEYED, 
EXCLUSIVE, PRINT, TRANSIENT 

BUFFERED STREAM, UNBUFFERED, PRINT, 



DIRECT 



STREAM, SEQUENTIAL, 
BACKWARDS, PRINT, TRANSIENT 



EXCLUSIVE STREAM, INPUT/OUTPUT, SEQUENTIAL, 
BACKWARDS, PRINT, 
TRANSIENT 
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INPUT OUTPUT/UPDATE, EXCLUSIVE, PRINT 

KEYED STREAM, BACKWARDS, PRINT 

OUTPUT INPUT/UPDATE, EXCLUSIVE, BACKWARDS 

PRINT RECORD, I NPUT/ UPDATE , DIRECT/ SEQUENTIAL, 

BUFFERED/UNBUFFERED, KEYED, EXCLUSIVE, 
BACKWARDS, TRANSIENT 

RECORD STREAM, PRINT 

SEQUENTIAL STREAM, DIRECT, EXCLUSIVE, PRINT, TRANSIENT 

STREAM RECORD, UPDATE, DIRECT/ SEQUENTIAL, 

BUFFERED/UNBUFFERED, KEYED, EXCLUSIVE, 
BACKWARDS, TRANSIENT 

TRANSIENT STREAM, UPDATE, DIRECT/ SEQUENTIAL, EXCLUSIVE, 
BACKWARDS, PRINT 

UNBUFFERED STREAM, BUFFERED, PRINT 

UPDATE STREAM, INPUT/ OUTPUT, BACKWARDS, PRINT, 
TRANSIENT 

IBM202I DEVICE TYPE CONFLICTS WITH FILE ATTRIBUTE. 

Explanation ; Certain types of file cannot be associated with 
particular input/output devices. For example, a file with the 
UPDATE attribute cannot be associated with a paper tape reader, 
a printer, or a magnetic-tape device. 

IBM203I BLOCK SIZE NOT SPECIFIED. 

Explanation ; For an output file, the block size must be 
specified, either in the ENVIRONMENT attribute or in the DCB 
parameter of the DD statement. 

IBM204I NO DD STATEMENT. 

Explanation ; The job stream must contain a DD statement with a 
ddname that is either a file name (if the TITLE option is not 
specified) or the name provided by the TITLE option. 

IBM205I I/O ERROR. •REGIONAL" DATA SET CANNOT BE FORMATTED. 



Example ; 



TF: PROC; 

OPEN FILE(F) DIRECT OUTPUT; 

END; 



Explanation ; When a REGIONAL data set is opened for direct 
output* data management routines format the data set into 
specified regions by writing dummy or control records into the 
data set. In this case there was an I/O error that prevented 
the data set from being formatted correctly. 
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Programmer Response ; If the problem recurs r have the direct 
access device or storage medium checked by a Customer Engineer. 

IBM206I 'LINESIZE' OR •PAGESIZE' OUTSIDE IMPLEMENTATION-DEFINED LIMITS 

Explanation : The implementation-defined maximum or minimum for 
the LINESIZE option of the ENVIRONMENT attribute has been 
exceeded. For F-format and U- format records, the maximum is 
32,, 759; for V-format records, the maximum is 32,751. The 
minimum for V- and F- format records is 1; minimum for 
V- format PRINT files is 9; minimum for V- format 
non-PRINT files is 10. 

Programmer Response ; Check that the argument to the LINESIZE 
option is within the prescribed limits. If the argument is a 
variable, check that it is a FIXED BINARY (31,0) STATIC 
variable that was correctly initialized before the file was 
opened . 

IBM207I KEY LENGTH NOT SPECIFIED. 

Explanation ; No key length has been specified, either in the 
ENVIRONMENT attribute or in the DCB parameter of the associated 
DD statement. 

IBM208I WRONG BLOCKSIZI OR RECORD LENGTH SPECIFIED 

Explanation : One of the following errors may have occurred: 

1- Block size is less than record length- 

2. For FE- format records, block size is not a multiple of 
record length. 

3» For VS-format and VBS- format consecutive files: 

a. LRECL=X was specified but RECSIZE was not specified or 
was invalid in the ENVIRONMENT attribute. 

b. The file was opened for update with a specified 
logical record size exceeding 32,756. 

4» For VS-format REGIONAL (3) files, logical record size was 
greater than block size minus four. 

5,. F0NC=EO is specified with a record length not equal to 
80 or FUNG=CO is specified with a record size not equal 
to 160. 

6,. Column binary is specified with a record length not equal 
to 160 on an output file. 

7» FDNC=I (punch interpret) is specified with a record 

length not equal to 80 (or 81 if control characters are 
in use) . 



Programmer Response : The four numbered responses below apply 
to the correspondingly numbered explanations above: 

1. Check the block size and record length specified in the 
BLKSIZE and RECSIZE options of the ENVIRONMENT attribute. 
If LINESIZE was specified,, check that it is compatible 
with BLKSIZE. 
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2,. If the argument of either option is a variable, check that 
it is FIXED BINARY (31,0) STATIC and that it has been 
initialized. 

3« (a) Specify a record size in the ENVIRONMENT attribute, or 
correct its value. 

(b) Specify a record size less than 32,757. 

4,. Specify a record size less than or equal to the block size 
minus four. 

IBM209I CONFLICTING ATTRIBUTES AND FILE ORGANIZATION. 

Explanation ; The file organization conflicts with one or more 
explicit or implicit file attributes. The following is a list 

of possible conflicts: 

Organization Attributes 

CONSECUTIVE DIRECT, EXCLUSIVE, KEYED, TRANSIENT 

INDEXED STREAM, TRANSIENT, DIRECT OUTPUT, OUTPUT 
without KEYED 

REGIONAL STREAM, TRANSIENT, OUTPUT without KEYED 

TP Non-TRANSIENT 

VSAM STREAM, TRANSIENT, BACKWARDS, DIRECT OUTPUT, 

OUTPUT without KEYED (KSDS) , KEYED (ESDS), 
DIRECT (ESDS) , REUSE for other than OUTPUT 
file, DIRECT with NON-UNIQUE INDEXES. 

None KEYED, TRANSIENT 

IBM210I RECORD FORMAT INVALID FOR THIS FILE ORGANIZATION. 

Explanation ; The following, combinations of file organization 
and record format are valid: 

CONSECUTIVE 

BUFFERED All 
UNBUFFERED F, FS, V, D, U 

INDEXED F, FB„ V, VE 

REGIONAL (1) F 

REGIONAL (2) F 

REGIONAL (3) F, V, VS, U 

TPCM), TP(R) None 

Programmer Reponse ; Amend the file declaration so that the 
record format is compatible with the file organization. 

IBM211I RECORD FORMAT NOT SPECIFIED. 

Explanation ; A record format must be supplied for a file with 
the RECORD attribute either in the ENVIRONMENT attribute, or in 
the data set label. 
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IBM212I KEYLENGTH NEGATIVE OR GREATER THAN 255 



Explanation : The KEYLENGTH option of the ENVIRONMENT attribute 
for this file has an invalid key length that is greater than 
255 or is negative. 

Programmer Response : The argument of the KEYLENGTH option 
should be checked to ensure that it is either a constant or a 
variable with the attributes FIXED BINARY (31,0) STATIC whose 
value neither exceeds 255 nor is negative when the file is 
opened. If the argument is a variable, check that it has been 
correctly initialized. 



IBM213I INVALID KEYLOC VALUE. 

Explanation : One of the following errors may have occurred: 

1. The offset of the key within a record is invalid. The 
sum of the KEYLOC value and the key length is greater than 
the record length. 

2. For blocked ISAM files, either KEYLOC has not been 
specified or KEYLOC (0) was specified. Both are invalid. 

Programmer Response : The two numbered responses below apply 
to the correspondingly numbered explanations above: 

1. Check the value of the argument to the KEYLOC option. If 
the argument is a variable, check that it is FIXED BINARY 

(31,0) STATIC and that it has been correctly initialized. 

2. Specify a KEYLOC value that is greater than zero. 

IBM215I INVALID BUFOFF VALUE. 

Explanation : The values that can be specified in the BUFOFF 
option for an ASCII input data set are in the range thru 99. 

Programmer Response : Ensure that the value specified in the 
BUFOFF option is within the range of values given above. If 
the argument is a variable, ensure that it is correctly 
initialized. 

IBM219I 'MODE' OR »FUNC" CONFLICTS WITH FILE ATTRIBUTE. 

Explanation : The MODE or FUNC DCB subparameter conflicts 
with a file attribute. Refer to the Programmer's Guide for 
details of all possible conflicts. 

IBM220I , MODE f OR 'FUNC CONFLICTS WITH RECORD FORMAT. 

Explanation : OMR or RCE files, 3525 print files and 3525 
associated files can only be F-format. 

IBM221I DEVICE TYPE CONFLICTS WITH •MODE'. 

Explanation : OMR can only be used on a 3505 and RCE on a 35 25 
device,. 
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IBM222I TOTAL OPTION INVALID ON AN 'OMR' OR ASSOCIATED FILE. 

Explanation : Either OMR (MODE=EO or MODE=CO) is specified 
on a file with the TOTAL option, or device association 
is specified on a file with the TOTAL option. 

IBM223I CONFLICT BETWEEN ■MODE 1 AND 'FUNC*. 

Explanation : Refer to the Programmer's Guide for details of 
all possible conflicts. 



IBM225I VALUE OF ENVIRONMENT OPTION DOES NOT MATCH ACTUAL DATA SET 
VALUE. 

Explanation : For VSAM data sets the values of KEYLOC, 
KEYLENGTH, and RECSIZE are specified when the data set is 
defined. If values are specified on any file declarations 
they must match the defined values. 

IBM226I *NCP' OR 'STRNO" VALUE NOT 1. 

Explanation : For VSAM files only one outstanding operation 
is permitted, that is, an operation with the EVENT option must 
be waited for before another operation is started. Either 
an NCP value greater than one has been specified in the ENV 
attribute or a STRNO value greater than one has been specified 
in the AMP parameter in the DD statement. 



*\ 



IBM227I 'TOTAL' OPTION SPECIFIED FOR ESDS. 

Explanation : The specification of TOTAL may cause the 
compiler to generate in-line code for I/O statements for 
CONSECUTIVE files. If the data set to be accessed is a VSAM 
Entry Sequenced Data set (ESDS) this code is invalid. 



IBM228I PASSWORD INVALID OR NOT SPECIFIED. 

Explanation : lor VSAM data sets defined with a password, ENV 
(PASSWORD) must be specified. If this password is invalid or 
is not specified the system operator is allowed a number of 
attempts to specify the correct password (the number of 
retries is specified when the data set is defined) . If these 
attempts fail UNDEFINEDFILE is raised. 

IBM229I NO ENTRY IN VSAM CATALOG. 

Explanation : Before using a VSAM data set a catalog entry 
must be made and space allocated for the data set, using the 
AMS DEFINE utility. The catalog containing the data set must 
be specified in a JOBCAT or STEPCAT DD statement (unless it 
is the master catalog) . This message may mean that ENV(VSAM) 
has been specified for a file, but the data set has not been 
converted from ISAM to VSAM. 



IBM230I I/O ERROR READING CATALOG OR VOLUME LABEL. 

Explanation : An I/O error prevented the reading of a VSAM 
catalog or a volume label. 
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IBM231I TIMESTAMP MISMATCH. 



Explanation : For VSAM data sets the index and data can 
be updated separately and the time of the latest update of 
each is recorded. If these tiroes do not match, the integrity 
of the data is uncertain. Similarly the timestamp in the data 
set catalog record may not match the timestamp on the volume 
containing the data set; this indicates the extent information 
in the catalog record may not agree with the extents indicated 
in the VTOC for the volume. 



IBM232I DATA SET NOT AVAILABLE. 

Explanation : The data set to be accessed is already being 
used by another program and is not shareable. Refer to the 
Programmer's Guide for further information. 

IBM233I DATA SET NOT PROPERLY CLOSED. 

Explanation : The last time the data set was opened the close 
operation failed, leaving the data set in an unusable state. 
Use of the access method services VERIFY utility program 
may restore the data set to a usable state. 



IBM234I DATA SET NEVER LOADED. 



Explanation : A file cannot be opened for INPUT or UPDATE to 
access a VSAM data set until one or more records have been 
loaded into the data set using a SEQUENTIAL OUTPUT file. 
Having once loaded records into the data set records can be 
added using a DIRECT UPDATE file even after all records have 
been deleted from the data set. 



IBM235I UNIDENTIFIED ERROR DURING VSAM OPEN. 



^ 



Explanation : The VSAM routines have detected an error during 
the open process, the cause of which cannot be determined 
explicitly. Message IEC250 on the operator's console will 
give more detail,. 

Programmer Response : If the error recurs after resubmitting 
the job, use PLIDUMP to obtain a storage dump and retain 
all the relevant documentation for study by IBM. 

IBM236I OPERATING SYSTEM UNABLE TO OPEN FILE ccc. 

Explanation : The file cannot be opened because: 

1. TRANSIENT files and INDEXED data sets are not 
supported under CMS,. 

2. When a VSAM data set is opened through the ISAM 
compatibility interface, this condition will 

occur if VSAM detects errors during the open process. 
Message IEC250 on the operator's console will give 
more detail. 

I 3. A difference exists between the parameters of the CMS 

I FILEDEF command and the file's attributes. 
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IBM241I 'REUSE* OPTION SPECIFIED FOR A NON-REUSEABLE DATA SET. 



Explanation ; The ENVIRONMENT option REUSE can only te 
specified with VSAM data sets which have been defined, during 
their creation by Access Method Services, as reuseable. 
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IBM242I ALTERNATE INDEX PATH IS EMPTY. 



Explanation : A path can become empty by having all of it's 
pointers deleted. Such a path cannot be opened. 



IBM243I ATTEMPT TO POSITION AT LAST RECORD FAILED. 



Explanation ; When the ENVIRONMENT option BKWD is used, on 
opening, the file must be positioned at the last record. If the 
attempt to position at the last record fails, the file is closed 
and the UNDEFINEDFILE condition is raised with this message. 



IBM300I 'ZERODIVIDE" CONDITION RAISED BY 'SIGNAL' STATEMENT. 



Explanation : The program contains a SIGNAL statement to raise 
the ZERODIVIDE condition for which there is no on- unit. 



Programmer Response : Either remove the SIGNAL statement or 
include an on- unit for the ZERODIVIDE condition in the program. 



IBM301I 'ZERODIVIDE" CONDITION RAISED 



Explanation : The program has attempted to execute a statement 
in which a value of zero has been used as the divisor in a 
division operation. Alternatively overflow has occurred during 
a convert to binary operation. 



Programmer Response : Either check the data that could produce 
a zero divisor (or overflow, if during a convert to binary 
operation) before running the program or insert a 
ZERODIVIDE on- unit to handle the condition whenever it arises. 



IBM320I 'UNDERFLOW CONDITION RAISED BY 'SIGNAL' STATEMENT. 



Explanation : The program contains a SIGNAL statement to raise 
the UNDERFLOW condition for which there is no on-unit. 



Programmer Response : Either remove the SIGNAL statement or 
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include an on-unit for the UNDERFLOW condition in the program. 



IBM321I •UNDERFLOW* CONDITION RAISED 



Explanation ; The magnitude of a floating-point number is 
smaller than the permitted minimum. 



IBM340I 'SIZE 1 CONDITION RAISED BY 'SIGNAL* STATEMENT 



Explanation ; The program contains a SIGNAL statement to raise 
the SIZE condition for which there is no on-unit. 



Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the SIZE condition in the program. 



IBM341I 'SIZE' CONDITION RAISED IN I/O STATEMENT. 



Explanation ; The high-order (leftmost) significant binary or 
decimal digits are lost in an input/output operation where the 
size of the value being transmitted exceeds the declared (or 
default) size of the data item. 



IBM342I •SIZE' CONDITION RAISED 



Explanation ; The high-order (leftmost) significant binary or 
decimal digits are lost in an assignment to a variable or 
temporary variable where the size of the value being assigned 
exceeds the declared (or default) size of the data item. 



Programmer Response ; Either modify the program so that the 

data item is large enough for the value being assigned to it or 

use a SIZE on-unit to permit processing to continue when the 
SIZE condition is raised. 



IBM360I 'STRINGRANGE* CONDITION RAISED BY 'SIGNAL* STATEMENT. 



Explanation ; The program contains a SIGNAL statement to raise 
the STRINGRANGE condition for which there is no on-unit. 



Programmer Response ; Either remove the SIGNAL statement or 
include on on-unit for the STRINGRANGE condition in the 
program . 



IBM361I •STRINGRANGE* CONDITION RAISED 



Explanation ; In the expression SUBSTR(S,I,# J)„ I and J are such 
that the substring does not lie wholly within the string S- 



Programmer Response ; It should be possible to modify the 
source program so that this condition cannot occur. 
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IBM380I 'AREA* CONDITION RAISED BY THE 'SIGNAL 1 STATEMENT 

Explanation ; The program contains a SIGNAL statement to raise 
the AREA condition for which there is no on- unit. 

Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the AREA condition in the program. 

IBM381I •AREA" ASSIGNMENT NOT EXECUTED, TARGET AREA TOO SMALL 

Explanation ; In an assignment of an area variable, the current 
extent of the area on the right-hand side of the assignment 
statement is greater than the size of the area to which it is 
to be assigned. 

Programmer Response ; Correct the program. 

IBM382I NOT ENOUGH CONTIGUOUS SPACE IN THE AREA FOR ALLOCATION 

Explanation ; In the execution of an ALLOCATE statement, 
insufficient space is available in the specified area for the 
allocation. 

Programmer Response ; Provide an on-unit to permit the 
allocation to be retried. If necessary, change the value of 
the pointer qualifying the reference to the inadequate area so 
that it points to another area in which the allocation can be 
retried. 

IBM400I 'CONDITION' CONDITION RAISED BY 'SIGNAL' STATEMENT, CONDITION 
ccc. 

Explanation ; The program contains a SIGNAL statement to raise 
the CONDITION condition for which there is no on-unit. (ccc 
denotes the condition-name associated with CONDITION in the 
SIGNAL statement.) 

Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the CONDITION condition in the program. 

IBM420I "SUBSCRIPTRANGE" CONDITION RAISED BY 'SIGNAL' STATEMENT. 

Explanation ; The program contains a SIGNAL statement to raise 
the SUBSCRIPTRANGE condition for which there is no on-unit. 

Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the SUBSCRIPTRANGE condition in the 
program. 

IBM421I 'SUBSCRIPTRANGE' CONDITION RAISED. 

Explanation ; An array subscript has been found to have a value 
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exceeding the declared bound for the array™ 



Programmer Response ; In order to ensure that the program can 
continue processing after encountering a subscript range error, 
include an on-unit for this condition which executes a GOTO 
statement to the appropriate place in the program, and re- 
compile it. Normal return from a subscriptrange on-unit 
will produce this message and raise the error condition. 
Note that array handling operations are made slower when 
SUBSCRIPTRANGE is enabled. 



IBM440I *STRINGSIZE' CONDITION RAISED BY •SIGNAL* STATEMENT 



Explanation ; The program contains a SIGNAL statement to raise 
the STRINGS! ZE condition for which there is no on-unit. 



Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the STRINGSIZE condition in the program. 



IBM441I 'STRINGSIZE' CONDITION RAISED 



Explanation ; The "STRINGSIZE* condition is raised when a 
string is assigned to a shorter string, causing right-hand 
characters or bits in the source string to be truncated. 



Programmer Response ; Determine whether or not truncation of 
the right-hand characters or bits in the source string is 
correct. Use an on-unit to record the relevant data or modify 
the program as required. Note that string- handling operations 
are made slower when STRINGSIZE is enabled™ 



IBM460I •OVERFLOW CONDITION RAISED BY 'SIGNAL* STATEMENT. 



Explanation ; The program contains a SIGNAL statement to raise 
the OVERFLOW condition for which there is no on-unit. 



Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the OVERFLOW condition in the program. 



IBM461I 'OVERFLOW' CONDITION RAISED 



Explanation ; The OVERFLOW condition occurs when the magnitude 
of a floating-point number exceeds the permitted maximum. 



Programmer Response ; Modify the program to ensure that the 
condition does not recur, or provide an on-unit to handle the 
condition. 



IBM480I "FIXEDOVERFLOW CONDITION RAISED BY 'SIGNAL* STATEMENT. 



Explanation ; The program contains a SIGNAL statement to raise 
the FIXEDOVERFLOW condition for which there is no on-unit. 
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Programmer Response ; Either remove the SIGNAL statement or 
include an on-unit for the FIXEDOVERFLOW condition in the 
program. 

IBM4 82I •• FIXEDOVERFLOW • CONDITION RAISED 

Explanation ; The FIXEDOVERLOW condition occurs when the length 
of the result of a fixed-point arithmetic operation exceeds the 
permitted maximum C15 for decimal values , and 31 fcr binary 
values) . 

Programmer Response ; Modify the program to ensure that the 
condition does not recur, or provide an on-unit to handle the 
condition. 

IBM500I TASK TERMINATION FOLLOWING MULTIPLE EXCEPTION INTERRUPT 
(Plus one or more of the following;) 
IMPRECISE INTERRUPT. 'ADDRESSING' UNPROCESSED- 
IMPRECISE INTERRUPT. 'DATA INTERRUPT* UNPROCESSED. 
IMPRECISE INTERRUPT. "OVERFLOW* UNPROCESSED. 
IMPRECISE INTERRUPT. "PROTECTION* UNPROCESSED. 
IMPRECISE INTERRUPT. 'SPECIFICATION* UNPROCESSED. 
IMPRECISE INTERRUPT. 'ZERODIVIDE* UNPROCESSED. 

Explanation ; A multiple-exception imprecise interrupt has 
occurred and the task is about to be terminated as a result of 
one of these exceptions. The remaining exceptions will not be 
processed. 

IBM531I OPERATION EXCEPTION 

Explanation ; An attempt has been made to execute an 
instruction with an invalid System/360 or 370 operation code. 

Programmer Response ; It is possible that an error in the 
program has caused part of the executable instructions to be 
overwritten by data. Refer to the section on program checkout 
in the programmer's guide for suggestions for deleting and 
correcting such errors. Other possible causes of an operation 
exception might be an attempt to invoke an external procedure 
or other routine that was not incorporated into the executable 
program by the linkage editor, or the execution of a branch 
instruction that has been made incorrect because a control 
block had previously been overwritten. Consequently, it is 
advisable to check the linkage editor diagnostics to ensure 
that all requested external procedures and subroutines have in 
fact been incorporated into the executable program, and that 
any overlay phases do not overwrite any phases that are still 
act ive . 

IBM532I PRIVILEGED OPERATION EXCEPTION 
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Explanation s An attempt has been made to execute certain 
System/360 or 370 instructions which can only be executed by 
the supervisor program. This condition can only be raised for 
a PL/I program which includes a non-PL/I routine that contains 
such an instruction or in which an error has occurred causing 
an executable instruction in the program to be overwritten with 
data that is identical to one of the privileged instructions. 



Programmer Response : If the error is not in a non-PL/ I routine 
included in the executable program, the PL/I program should be 
checked for an error that could cause the executable 
instructions to be overwritten by data that matches a 
privileged operation. The section on program checkout in the 
programmer"" s guide contains suggestions for detecting and 
correcting such errors. 



IBM533I EXECUTE EXCEPTION 



Explanation ; An attempt has been made to use an IBM System/360 
or 370 EXECUTE instruction to execute another EXECUTE 
instruction. This can occur if a routine that contains this 
error has been included in the PL/I program, or if an 
executable instruction that is the subject of a 
compiler-generated EXECUTE instruction has been overwritten by 
data that matches the operation code for the EXECUTE 
instruction. 



Programmer Response ; If the error is not in a non-PL/i routine 
included in the executable program, the PL/i program should be 
checked for an error that could cause the executable 
instruction to be overwritten by data that matches the 
operation code for the EXECUTE instruction on. The section on 
program checkout in the programmer* s guide contains suggestions 
for detecting and correcting such errors. 



IBM53UI PROTECTION EXCEPTION 



Explanation ; An attempt has been made to store data in main 
storage that is outside the partition allocated to the program. 

Programmer Response ; If the error is not in a non-PL/I routine 
included in the executable program, the PL/I program should be 
checked for an error that could cause the address used by the 
store instruction to be corrupted. The section on program 
checkout in the programmer's guide contains suggestions for 
detecting and correcting such errors. 



IBM535I ADDRESSING EXCEPTION 



Explanation ; An invalid address has been supplied as an 
operand to an IBM System/360 or 370 instruction. 



Programmer Response ; If the error is not in a non-PL/I routine 
included in the executable program, the PL/I program should be 
checked for an error that could cause the address to be 
corrupted. The section on program checkout in the programmer's 
guide contains suggestions for detecting and correcting such 
errors. 
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IBM536I SPECIFICATION EXCEPTION 



Explanation ; An alignment error in the operands of an IBM 
System/360 or 370 instruction, or an error in the specification 
of the operands, has occurred. 

Programmer Response ; If the error is not in a non-PL/l routine 
included in the executable program, the PL/I program should be 
checked for an error that could cause the operand to be 
corrupted by overwriting control blocks or sections of 
executable code. The section on program checkout in the 
programmer's guide contains suggestions for detecting and 
correcting such errors. 



IBM537I DATA EXCEPTION 



Explanation ; An attempt has been made to process FIXED DECIMAL 
data that is not in the correct format. 



Programmer Response ; The PL/I program should be checked for an 
error such as an operation on a FIXED DECIMAL data item before 
it has been initialized, or an error which could cause the data 
item to be overwritten. Refer to the chapter on program 
checkout in the programmer's guide for hints on how to trace 
such errors. 



IBM53 8I OPERATION EXCEPTION, FLOATING POINT INSTRUCTIONS NOT SUPPORTED. 

Explanation ; An attempt has been made to execute a 
floating-point instruction on a machine that does not have 
hardware facilities for floating-point arithmetic. The 
floating-point instruction is contained either in instructions 
generated by the compiler, or in a non-PL/I routine in this 
program . 

IBM560I EVENT VARIABLE AS ARG TO CPLN P-V, ALREADY IN USE WITH FILE fff 



Explanation ; The event variable used in this statement is 
already active and is associated with an input/output operation 
on the named file. 



Programmer Response ; Modify the program so that the COMPLETION 
pseudovariable refers to the event variable when it is 
inactive. 



IBM561I TASK VARIABLE ALREADY USED WITH ENTRY eee 



Explanation ; The task variable specified in a CALL statement 
is already associated with an active task, eee denotes the 
entry point of the task with which the variable is associated*. 



IBM562I 



EVENT VARIABLE AS ARG TO CPLN P-V ALREADY IN USE WITH 
STMNT,. 



DISPLAY' 
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Explanation ; The event variable used in this statement is 
already active and is associated with a DISPLAY statement. 



Programmer Action ; Modify the program so that the COMPLETION 
pseudovariable refers to the event variable when it is 
inactive. 



IBM563I EVENT VARIABLE ALREADY IN USE WITH FILE fff 



Explanation ; The event variable used in this statement is 
already active and is associated with another input/output 
operation on the named file. 

Programmer Response ; Modify the program so that the 
input/output operation refers to another event variable, or 
include a WAIT statement to prevent execution of the statement 
until the active event is complete. 

IBM56UI EVENT VARIABLE ASSIGNED TO, ALREADY IN USE WITH FILE fff 

Explanation ; An attempt has been made to assign a value to an 
event variable while it is still associated with an 
input/output operation. For example: 

READ FILE(X) INTO(Y) EVENT(Z); 
Z=Z1; 

Programmer Response ; Modify the program so that the event 
variable used as the target in the assignment, or as the 
argument of the COMPLETION pseudovariable, is not the same 
event variable associated with an input/ output operation. 
Alternatively, include a WAIT statement to prevent execution of 
this statement until the active event is complete. 

IBM565I NOT ENOUGH MAIN STORAGE AVAILAELE FOR SUBTASK. 



Explanation ; On execution of a CALL statement with 
multitasking options, it has been found that there is 
insufficient main storage available to create a new task. 
Enough main storage must be available before execution of the 
procedure called as a subtask can begin. 



IBM566I 



•TASK* 
LIMIT- 



NOT CREATED, SINCE NUMBER OF ACTIVE TASKS WOULD EXCEED 



Explanation ; The number of tasks allowed to be active at the 
same time is determined by an option that can be specified when 
the PL/I program is invoked. If no value is specified, a 
standard default of 20 tasks is assumed. For example: 

DO 1=1 TO N; 

CALL A TASK; 

END; 

CALL A TASK; 

A PROC; 

WAIT(E) ; 

END; 
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The second CALL statement , if executed, would take the number 
of concurrently active tasks over the implicit or explicit 
limit. 

Programmer Response : Increase the number of tasks allowed to 
be active concurrently or modify the program so that the 
existing number of active tasks is not exceeded. 

IBM567I WAIT IN ON UNIT FOR I/O EVENT BEING WAITED FOR BY THIS TASK. 

Explanation ; This error is caused when a WAIT statement 
specifies an event variable, and the completion of the event 
causes entry to an on-unit for an I/O condition which contains 
another WAIT statement for the same event variable. 

For example: 

ON RECORD (F) BEGIN; 



WAIT(E) ; 



END; 

WRITE FILE (F)... EVENT (E) ; 
WAIT(E); (this statement raises 

the record condition) 

Programmer Response : Remove the WAIT statement from the 
on-unit for the input/output condition. 

IBM568J EVENT VARIABLE ASSIGNED TO, ALREADY IN USE WITH "DISPLAY* STMNT 

Explanation : The event variable specified as the argument of 
the COMPLETION built-in function, or used as the target in an 
assignment, is still associated with a DISPLAY statement. For 
example: 

DISPLAY ('MESSAGE TO OPERATOR') 
REPLY(A) EVENT (E); 
COMPLETION (E) = ' 1 * B ; 

Programmer Response : Modify the program so that the event 

variable used as the target in the assignment or as the 

argument of the COMPLETION pseudo variable is not the same event 

variable associated with the DISPLAY statement. Alternati , vely» 

include a WAIT statement to prevent execution of this statement 
until the active event is complete. 

IBM569I EVENT VARIABLE ASSIGNED TO IS ALREADY ACTIVE, USED WITH ENTRY 
eee 

Explanation : An event variable that is still active has been 
specified as the target of an event variable assignment. Fpr 
example: 

CALL P EVENT (E) ; 
E=E1; « 
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Programmer Response : Modify the program either to ensure that 
the event variable in question is inactive when the assignment 
is executed, by inserting a WAIT statement, or use another, 
inactive, event variable. 



IBM570I EVENT VARIABLE ALREADY ACTIVE, USED WITH ENTRY eee 



Explanation : An event variable that is still active has been 
specified in the EVENT option of an input/output statement. 



Programmer Response : Modify the program either to ensure that 
the event in question is inactive when this statement is 
executed, by inserting a WAIT statement, or use another, 
inactive, event variable if the statement can be executed 
correctly before the currently active event is complete. 



IBM571I EVENT VARIABLE ALREADY IN USE WITH 'DISPLAY' STMNT 



Ex planation : The event variable specified in the statement is 
already associated with a DISPLAY statement. 



Programmer Response : Either use a different event variable or 
insert a WAIT statement so that the DISPLAY statement is 
complete before this statement is executed. 



IBM572I CALL WITH TASK OPTION INVALID IN 'PUT FILE (SYSPRINT) ' 
STATEMENT. 



Explanation : A CALL TASK statement is not allowed, because 
during execution of a PUT statement no other task in the 
program can produce output on SYSPRINT, and task interlock (the 
situation where two or more tasks are waiting for each other) 
is likely to occur. For example: 

PUT LIST(F(X)); 
E: PROC(X); 

CALL F TASK; 



IBM573I 



EVENT VARIABLE AS ARG TO CPLN P-V, ALREADY IN USE WITH ENTRY 
eee 



Explanation : An event variable used as the argument to the 
COMPLETION pseudovariable must be inactive. 



IBM574I 'CALL' STATEMENT WITH 
POINT. 



'TASK' OPTION SPECIFIES UNRESOLVED ENTRY 



Explanation : The address of the procedure to be invoked as a 
task has been found to be zero. This is probably caused by the 
CALL statement specifying an external procedure which was not 
link-edited into the load module. 



Programmer Response : Ensure that the procedure invoked as a 
task is present in the load module. 
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IBM575I ATTEMPT TO USE FORTRAN OR COBOL IN TWO TASKS CONCURRENTLY. 



Explanation : An attempt has been made to invoke a COBOL or 
FORTRAN subroutine when either: 

1. A COBOL or FORTRAN subroutine was active as part of 
another task, or, 

2. There was an active procedure in another task which had 
called the FORTRAN subroutine. 



Programmer Response : Change the PL/I source program by 
inserting WAIT statements so that a call or function reference 
to the other language subroutine cannot be attempted in either 
of the above situations. 



IBM576I ATTEMPT TO CALL TASK IN NON-TASKING ENVIRONMENT. 



Explanation : An attempt was made to call a task when the 
multitasking library was not selected in the link-edit step. 



Programmer Response : When concatenating libraries in the 
SYSLIB specification of the link-edit step, ensure that the 
multitasking library SYS1.PLITASK is placed before the base 
library SYSl.PLIBASE (See the programmer's guide). 



IBM5 90I UNABLE TO FIND FETCHABLE PROCEDURE WITH ENTRY eee 



Explanation : The job and/or link libraries available when the 
program was executed did not contain a member with a name or 
alias matching that used in the FETCH statement. 



Programmer Response : Ensure that the job or link library 
contains the load module that is to be fetched, and that it is 
stored with the same name or alias as that used in the FETCH 
statement. 



IBM5 91I PERMANENT I/O ERROR WHILE FETCBING PROCEDURE WITH ENTRY eee 



Explanation : A permanent I/O error has occurred during the 
search through the job and/or link libraries for the load 
module named in the FETCH statement. 



Programmer Response : Ensure that the required load module has 
been correctly incorporated into the appropriate library, and 
then rerun the job. If the problem recurs, inform your 
installation system programmer, who will take the appropriate 
action. 



IBM5 92I FETCH/RELEASE IS NOT SUPPORTED IN CMS. 

Explanation : An attempt has been made to FETCH or RELEASE 
another program from PL/I. The FETCH/RELEASE facility is not 
available under CMS. The ERROR condition has been raised. 
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*BW600I INCORRECT VALUES OF W,D,S FIELDS IN E- FORMAT SPECIFICATION 



Explanation : An edit-direct ed input/output operation for an 
E~ format item has been specified incorrectly. 



Programmer Response ; Correct the E-format item according to 
the language rules. 



IBM601I VALUE OF W FIELD TOO SMALL IN F-FORMAT SPECIFICATION 



Explanation : An edit-direct ed input/output operation for an 
F-f ormat item has been specified incorrectly with a 
W-specif ication that is too small to allow room for the 
decimal-point when the number of fractional digits is specified 
as zero. 



Programmer Response : Correct the F-format item according to 
the language rules. 



IBM6GUI INVALID ASSIGNMENT TO PICTURED CHARACTER STRING 



Explanation : A data item which is not a character string 
cannot be assigned to a pictured character string because it 
does not match the declared characteristics of the pictured 
target variable. 



Programmer Response : Modify the program so that the assignment 
is possible by altering the characteristics either of the 
source variable or of the target variable. 

IBM605I ITERATION FACTOR IN FORMAT LIST / DEPTH OF R-FORMAT NESTING TOO 
LARGE . 



IBM606I INVALID REMOTE FORMAT ITEM IN FORMAT LIST, 



IBM607I REMOTE FORMAT STATEMENT IS OUTSIDE THE CURRENT BLOCK, 



IBM608I LABEL VARIABLE IN R-FORMAT ITEM DOES NOT REFER TO R-FORMAT STMT 
LABEL . 



IBM648I 'ONCODE'=3797 



% 



INVALID ASSIGNMENT OF GRAPHIC CHARACTER STRING IN 
STATEMENT n AT OFFSET xxxxxx IN PROCEDURE WITH ENTRY 

yyyy 

Explanation : This message is issued by PL/I stream 
I/O when LIST, DATA, or EDIT input/output is attempted 
for a graphic string and the corresponding source or 
target string or file does not have the necessary 
graphic attribute. It may also occur when a null 
graphic constant appears as an element in the data 
list of a PUT for LIST or EDIT. Null graphic constants 
are restricted as elements in the data list of a PUT 
for LIST or EDIT. 
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IBM650I SOURCE NOT MODIFIED IN CONVERSION ON-UNIT, RE-TRY NOT ATTEMPTED 

Explanation : The CONVERSION condition has been raised by the 
presence of an invalid character in the string to be converted. 
The character has not been corrected in an on-unit using the 
ONCHAR or ONSOURCE pseudovariable. 

Programmer Response : Modify the CONVERSION on-unit to use 
either the ONCHAR or the ONSOURCE pseudovariable to assign a 
valid character to replace the invalid character in the source 
string. 
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IBM670I X LT IN SQRT(X) 



Explanation : The built-in function SQRT has been invoked with 
an argument that is less than zero. On-codes associated with 
this message are: 

1500 Short floating-point SQRT error 

1501 Long floating-point SQRT error 

1502 Extended floating-point SQRT error 



Programmer Response : Modify the program so that the argument 
of the SQRT built-in function can never be less than zero. 



IBM671I X LE IN LOG(X) f L0G2 CX) , OR LOGIO(X) 



Explanation : One of the built-in functions LOG, LOG2, or LOG10 
has been invoked with an argument that is less than or equal to 
zero. The invocation may have been direct or as part of the 
evaluation of an exponentiation calculation. On-codes 
associated with the message are: 

1503 Extended floating-point LOG, LOG2, or LOG10 error 

1504 Short floating-point LOG, LOG2, or LOG10 error 

1505 Long floating-point LOG, LOG2, or LOG10 error 



Programmer Response : If the invocation was direct, modify 
the program so that the argument of the LOG, LOG2, or LOG10 
built-in function is greater than zero; if it was part of an 
exponentiation calculation, ensure that the argument is 
greater than zero. 



IBM672I ABS(X) TOO LARGE IN SIN (X) , COS (X),SIND (X) , COSD (X) , TAN (X) OR 
TAND(X) 



Explanation : The argument passed to TAN, TAND, SIN, SIND, COS, 
or COSD exceeds the limit specified below: 



Float ing- Point 
Precision 



Limit 



Binary p < 21 
Decimal p < 6 



Binary 21 < p < 53 
Decimal 6 < p < 16 

Binary 53 < p < 109 
Decimal 16 < p < 33 



x<(2**18)*K 



x< (2**50) *K 



x< (2**100) *K/pi 



where K = pi for x in 
radians (SIN, 
COS, or TAN) 



where K = 180 for x in 
degrees (SIND, 
COSD, TAND) 



The error has arisen during one of the following: 

1,. The evaluation of SIN, SIND, COS, COSD, TAN, or TAND when 
invoked implicitly. 

2- The evaluation of TAN, when invoked during the evaluation 
of TAN or TANH with a complex argument. 

3» The evaluation of SIN or COS, when invoked during the 
evaluation of EXP, SIN, SINH, COS, COSH, TAN or TANH 
with a complex argument. 
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4- The evaluation of a general exponentiation function with 
complex arguments. On-codes associated with this message 
are: 

1506 Short floating-point SIN, SIND, COS, or COSD error 

1507 Long floating-point SIN, SIND, COS, or COSD error 
1501 Extended floating-point SIN, SIND, COS, or COSD error 

1508 Short floating-point TAN or TAND error 

1509 Long floating-point TAN or TAND error 
1517 Extended floating-point TAN or TAND error 

IBM674I X=Y=0 IN ATAN(Y,X),OR ATAND <Y,X) 

Explanation ; Two arguments, both zero, have been given for the 
ATAN or ATAND built-in function- ATAN or ATAND has teen 
invoked either directly with a real argument or indirectly in 
the evaluation of the LOG built-in function with a complex 
argument, on-codes associated with this message are: 

1510 Short floating-point ATAN or A1AND error 

1511 Long floating-point ATAN or ATAND error 
1522 Extended floating-point ATAN or ATAND error 

Programmer Response : Modify the program so that the arguments 
of ATAN or ATAND are not both zero. 



IBM675I ABS(X) GE 1 IN ATANH(X) 



Explanation : The ATANH built-in function has been used with a 
floating-point argument with an absolute value that equals or 
exceeds 1. On-codes associated with this message are: 

1514 Short floating-point ATANH error 

1515 Long floating-point ATANH error 

1516 Extended floating-point ATANH error 

Programmer Response : Modify the program so that the absolute 
value of a floating-point assignment to the ATANH built-in 
function does not equal or exceed 1. 



IBM676I ABS(X) GT 1 IN ASIN(X) OR ACOS (X) 



Explanation : The absolute value of the floating-point argument 
of the ASIN or ACOS built-in function exceeds 1. On-codes 
associated with this message are: 

1518 Short floating-point ASIN or ACOS error 

1519 Long floating-point ASIN or ACOS error 

1520 Extended floating-point ASIN or ACOS error 



Programmer Response : Modify the program so that the ASIN or 
ACOS built-in function is never invoked with a floating-point 
argument whose absolute value exceeds 1. 



IBM700I 



ATTEMPT TO ASSIGN TO UNALLOCATED CONTROLLED VARIABLE IN GEI 
DATA FOR FILE fff 
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Example : 



DCL X CONTROLLED FIXED BIN; 
GET DATA(X); 

(Input stream contains X=5, ) 



Explanation : A variable in the stream accessed by a GET FILE 
DATA statement is CONTROLLED but there is no current allocation 
for the variable. 



Programmer Response : Either remove the data item from the 
input stream or insert an ALLOCATE statement for the variable 
before the GET FILE DATA statement. 



IBM701I ATTEMPT TO ASSIGN TO UNALLOCATED CONTROLLED VARIABLE IN GET 
DATA. 



Example : 



DCL STR CHAR (4) INIT('X=5;') 
X CONTROLLED FIXED BIN; 
GET STRING (STR) BATA(X); 



Explanation : A variable in a string accessed by a GET STRING 
DATA statement is CONTROLLED but there is no current allocation 
for the variable. 



Programmer Response : Either remove the data item from the 
string or insert an ALLOCATE statement for the variable before 
the GET STRING DATA statement. 



IBM722I X=(0) AND Y IS NOT A REAL POSITIVE NUMBER IN X**Y 



Explanation : In an exponentiation operation the floating-point 
base is zero and the exponent is not positive and real. 
On-codes associated with this message are: 

1550 Short floating-point real base with integer exponent 

1551 Long floating-point real base with integer exponent 

1560 Extended floating-point real base with integer 
exponent 

1552 Short floating-point real base with floating-point 
exponent 

1553 Long floating-point real base with floating-point 
exponent 

1561 Extended floating-point real base with floating-point 
exponent 

1554 Short floating-point complex base with integer 
exponent 

1555 Long floating-point complex base with integer 
exponent 

1562 Extended floating-point real base with integer 
exponent 

1556 Short floating-point complex base with complex 
exponent 

1557 Long floating-point complex base with complex 



Part II: Execution-time (I EM) Messages 229 
*** BEFORE CALLING IBM FOR PROGRAMMING SUPPORT, REFER TO PAGE 192 *** 



exponent 
1563 Extended floating-point complex base with complex 
exponent 



Programmer Response ; Modify the program so that the 
exponentiation operation involves a non-zero floating-point 
base or a positive real exponent. 



IBM724I Z=+1I OR -II IN ATAN(Z) OR Z=+l OR -1 IN ATANH (Z) 



Explanation : The complex floating-point argument of the ATAN 
built-in function has the value of +11 or -II. Alternatively f 
the complex floating-point argument of the ATANH built-in 
function has the value +1 or -1. On-codes associated with this 
message are: 

1558 Short floating-point complex ATAN or ATANH error 

1559 Long floating-point complex ATAN or ATANH error 
1564 Extended floating-point complex ATAN or ATANH error 



Programmer Response : Modify the program so that the complex 
floating-point argument of ATAN can never be +11 or -II, or the 
complex floating-point argument of the ATANH built-in function 
never has the value +1 or -1- 



IBM750I 'GOTO' TO AN INVALID BLOCK ATTEMPTED, 



Example : 



DCL I LABEL; 
BEGIN; 
A: L = A; 
END; 
GOTO L; 



Explanation : A GOTO statement that transfers control to a 
label variable is invalid ^beca use: 

1. The generation of the block that was active when 
the label variable was assigned was no longer active 
when the GOTO statement was executed. 

2. The label variable was uninitialized. 

3. The element of the label array, to which control is 
to be transferred, does not exist in the program. 

4. An attempt has been made to transfer control to a 
block that is not within the scope of this task. 



Programmer Response : Modify the program so that the GOTO 
statement transfers control to a label variable that was 
assigned in a block that is still active. 



IBM772I 'WAIT' WITH MULTIPLE 'EVENTS' NOT IN THIS SYSTEM 



Explanation : A WAIT statement with more than one event 
variable has been encountered. The FL/I Transient Library for 
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this system was generated to handle wait statements for single 
events only. 



Programmer Response ; Modify the program so that the WAIT 
statement specifies one event only.. 



IBM780I NO 'OTHERWISE' CLAUSE AND NO 'WHEN' CLAUSES SATISFIED. 



Explanation : It is an error if no WHEN clauses of a SELECT 
statement are selected and no OTHERWISE clause exits. 



IBM802I GET/PUT STRING EXCEEDS STRING SIZE 

Explanation ; For input, a GET statement has attempted to 
access data that exceeds the length of the source string. For 
output, a PUT statement has attempted to assign data that is 
longer than the target string. 

IBM803I FURTHER OUTPUT PREVENTED BY PRIOR CONDITION FOR FILE fff. 

Explanation ; A PL/I WRITE, LOCATE, or PUT statement has been 
issued for a file to which a previous attempt to transmit a 
record caused the TRANSMIT condition to be raised immediately 
or, if the EVENT option has been specified,, to be stacked until 
the event was waited on. The data set is not a unit-record 
device and no further processing of the file is possible. 

IBM804I 'PRINT* OPTION/FORMAT ITEM USED WITH NON-* PRINT' FILE fff. 



Explanation ; An attempt has been made to use one of the 
options PAGE or LINE for a file that is not a print file. 



IBM805I 'DISPLAY' WITH 'REPLY' OPTION HAS ZERO LENGTH STRING, 



Explanation ; The current length of the character string to be 
displayed, or the maximum length of the character string to 
which the reply is to be assigned, is zero. 

IBM807I NO PRECEDING 'READ SET* OR 'READ INTO* FOR 'REWRITE' OR 
•DELETE' ON FILE fff 



Explanation ; A REWRITE or DELETE statement without the KEY 
option has been executed when the last input/ output operation 
on the file was not a READ statement with the SET or INTO 
option or was a READ statement with the IGNORE option. 



Programmer Response ; Modify the program so that the REWRITE or 
DELETE statement is either preceded by a READ statement or, in 
the case of a REWRITE statement, replaced by a WRITE statement, 
according to the requirements of the program. A preceding READ 
statement with the IGNORE option will also cause this message 
to be issued. 
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IBM808I INVALID ELEMENT VARIABLE IN STRING FOR •GET STRING DATA* 



Explanation ; The identifier in the string naired in the STRING 
option of a GET STRING DATA statement does not match the 
identifier in the data specification. Note that the DATAFIELD 
built-in function will not return a value in this case. 

Programmer Response ; Modify the program so that the string 
contains the identifier in the data specification. 



IBM809I INVALID FILE OPERATION. 



Explanation ; An attempt has been made to carry out an 
operation on a file that is invalid with the file as declared. 
For example, it is not possible to execute a REWRITE statement 
on a STREAM file, read an output file, or write an input file,. 
A list of other possible conflicts follows: 



Statement and Option 



Any record I/O statement 

Any stream I/O statement 

READ 

READ SET 

READ EVENT 

READ KEY 

READ IGNORE 

READ NOLOCK 

WRITE 



WRITE EVENT 

REWRITE 

REWRITE (without FROM) 

REWRITE KEY 

REWRITE EVENT 

LOCATE 



LOCATE KEYFROM 
DELETE 



DELETE KEY 
UNLOCK 

GET 
PUT 



Conflicting File Attribute or 
Organization 

STREAM 

RECORD 

OUTPUT 

UNBUFFERED 

BUFFERED 

REGIONAL SEQUENTIAL or CONSECUTIVE 

DIRECT 

SEQUENTIAL or INPUT 

INPUT SEQUENTIAL UPDATE 

INDEXED DIRECT NOKRITE 

REGIONAL (not KEYED) 

BUFFERED 

INPUT or OUTPUT 

UNBUFFERED or DIRECT 

SEQUENTIAL 

BUFFERED 

INPUT or UPDATE 

UNBUFFERED 

DIRECT 

INDEXED or REGIONAL (without KEXED) 

INPUT or OUTPUT 

CONSECUTIVE 

REGIONAL SEQUENTIAL 

RKP=0 (blocked records) 

OPTCD=L not specified 

SEQUENTIAL 

INPUT or OUTPUT 

SEQUENTIAL 

OUTPUT 

INPUT 
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Programmer Response ; Ensure that the file declaration and the 
input/output statements for the named file are compatible. 



IBM 8111 I/O ERROR. CAUSE NOT KNOWN. 



Explanation ; The data management routines have detected an 
error during an input/output operation,, the cause of which 
could not be determined explicitly. 
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Programmer Response : If the error recurs after resubmitting 
the job, use PLIDUMP to obtain a storage dump and retain all 
the relevant documentation for study by IBM. 

IBM812I NO PRECEDING 'READ SET* OR 'READ INTO* FOR 'REWRITE'. 

Explanation : A REWRITE statement has been executed for which 
no preceding READ statement, either with the INTO option or 
with the SET option, has been executed. 

Programmer Response : Modify the program so that the REWRITE 
statement is either preceded by a READ statement or replaced by 
a WRITE statement, according to the requirements of the 
program . 

IBM813I LAST •READ" BEFORE THIS •REWRITE" OR ■ DELETE • IS INCOMPLETE. 



Explanation : An attempt has been made to execute a REWRITE or 
DELETE statement before a preceding READ statement (with the 
EVENT option) for the same file has been completed. 



Programmer Response : Modify the program so that the REWRITE or 
DELETE statement is executed after completion of the READ 
statement by inserting a WAIT statement for the given event 
variable into the flow of control between the two statements. 



IBM814I TOO MANY INCOMPLETE I/O OPERATIONS. 



Explanation : An attempt has been made to initiate an 
input /output operation beyond the limit imposed by the NCP 
(number of channel programs) subparameter of the DCB parameter 
or option of the ENVIRONMENT attribute. For a file with the 
attributes SEQUENTIAL and UNBUFFERED, the default for NCP is 
one. The limit, for VSAM files, is specified either by the NCP 
option of the ENVIRONMENT attribute or by the STRNC sub- 
parameter of the AMP parameter in the DD statement. Except 
when using the ISAM compatibility interface the limit is one 
for both SEQUENTIAL and DIRECT UNBUFFERED files. 



Programmer Response : Modify the program so that the 
input/output operation is not initiated until an incomplete 
input/output operation has been completed. 



IBM816I IMPLICIT 'OPEN" UNSUCCESSFUL. 



Explanation : An error has occurred during the implicit opening 
of a file. The UNDEFINEDFILE condition was raised and a normal 
return was made from the associated on- unit, but the file was 
still unopened- 

Programroer Response : Ensure that the file has been completely 
and correctly declared, and that the input/output statement 
that implicitly opens the file is not in conflict with the file 
declaration. 
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IBM818I UNEXPECTED END OF FILE/STRING DETECTED IN STREAM INPUT. 

Explanation : The end of the file has been detected before the 
completion of a GET FILE statement. 

Programmer Besponse : For edit-directed input, ensure that the 
last item of data in the stream has the same number of 
characters as specified in the associated format item. If the 
error occurs during execution of an X-format item, ensure that 
the same number of characters to be skipped are present before 
the last data item in the stream. 

For list-directed and data-directed input, ensure that the last 
item of data in the data set, if a string, is terminated by a 
quote character (and if a bit-string, by a 'B') that precedes 
the end-of-file marker. 

IBM819I ATTEMPT TO CLOSE FILE IN THE WRONG TASK. 

Explanation : A file can only be closed by the task that opened 
it, 

IBM 8 2 01 INVALID ATTEMPT TO ACCESS A LOCKED RECORD. 

Explanation : In an exclusive environment an attempt has been 
made to read, rewrite, or delete a record when either the 
record or the data set is locked by another file in this task. 

IBM821I I/O STATEMENT OCCURRED BEFORE PREVIOUS 'READ' COMPLETED BY 
•WAIT' . 

Explanation : While an indexed sequential file was open for 
direct updating, an input/output statement was attempted before 
the completion of a previous READ statement with the EVENT 
option. 

Programmer Response : Include a WAIT statement so that the 
erroneous input/output statement cannot be executed until the 
completion of the previous READ statement with the EVENT 
option. 

IBM823I INVALID CONTROL FORMAT ITEM FOR •GETVPUT* STRING. 

Explanation : An invalid control format item (PAGE, LINE, SKIP, 
or COL) has been detected in a remote format list for a GET or 
PUT STRING statement. For example: 

DCL(A, B) CHAR (10), 
C CHAR (80); 

F: FORMAT (A (10) , SKIP,A (10) ) ; 
A=*FRED' ; B = 'HARRYS- 
PUT STRING (C) EDIT(A,B) (R(F)); 

Programmer Response : Modify the source program so that GET or 
PUT STRING statements do not attempt to use invalid control 
format items in remote format lists. 
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IBM82UI 



RECORDS STILL LOCKED IN SUBTASK WHILE ATTEMPTING TO CLOSE 
EXCLUSIVE FILE fff 



Example : 



DCL F FILE EXCLUSIVE; 

OPEN FILE(F); 

CALL P TASK PRIORITY (1); 

CLOSE FILE(F); /* ERROR RAISED HERE */ 



PROC; 
READ FILE (F) EVENT 
DELAY C1000) ; 
WAIT (E); 
END P; 



IE); 



Explanation ; When an exclusive file is closed, any records 
still locked must be unlocked or a system ABEND will occur. A 
record can only be unlocked in the task in which it was locked, 
Consequently, a CLOSE statement cannot imply an UNLOCK 
statement for any files locked in a subtask of the closing 
task. 



IBM825I EVENT VARIABLE ALREADY IN USE. 



Explanation : An input/output statement with an EVENT option 
has been attempted while a previous input/ output statement with 
an EVENT option that uses the same event variable is still 
incomplete. 



Programmer Response ; Either change the event variable used in 
the second EVENT option or insert a WAIT statement for the 
event variable between the two input/output statements. 



IBM826I EVENT VARIABLE ALREADY IN USE WITH DISPLAY STATEMENT. 



Explanation : An input/output statement with an EVENT option 
has been attempted while a previous DISPLAY statement with an 
EVENT option that uses the same event variable is still 
incomplete . 



Programmer Response ; Either change the event variable used in 
the second EVENT option or insert a WAIT statement for the 
event variable between the DISPLAY statement and the 
input/output statement. 



IBM827I EVENT VARIABLE ALREADY ACTIVE, USED WITH ENTRY eee 



Explanation : An event variable that has already been used in 
the EVENT option in a CALL statement is still active when again 
used in the EVENT option of an input/output statement. 



Programmer Response : Either use a different event variable or 
insert a WAIT statement so that the input/output statement is 
not executed until the event variable becomes inactive. 
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IBM828I INCORRECT SEQUENCE OF I/O OPERATIONS ON AN ASSOCIATED FILE. 

Explanation : Operations on a set of associated files were 
not carried out in the correct sequence, as follows: 

1,. Appropriate I/O operations were not carried out in the 
sequence Read-Punch-Print- Only the Print operation 
may be omitted or repeated. 

2.. An attempt was made to print more than the maximum 

number of lines on a card,, using a print file that was 
associated with a read or punch file,. 

IBM829I INSUFFICIENT VIRTUAL STORAGE AVAILABLE TO VSAM. 

Explanation : During an OPEN/CLOSE or any other operation 
on a VSAM data set insufficient storage was available for 
workspace and control blocks. 

IBM830I I/O ERROR DURING •CLOSE*. 

Explanation : An I/O error occurred while a VSAM close routine 
was either reading or writing a catalog record, or completing 
an outstanding I/O request. 

IBM 8311 NO POSITIONING ESTABLISHED FOR SEQUENTIAL READ. 

Explanation : A READ statement without the KEY option has 
been attempted on a VSAM data set, after sequential 
positioning has been lost as the result of a previous error 
during sequential processing (for example, read error on 
index set or failure to position to next highest key after a 
•key not found" condition),. 

IBM832I INSUFFICIENT SPACE FOR VSAM DATA SET. 

Explanation : VSAM has been unable to allocate additional DASD 
space for the data set (ESDS or KSDS). The condition is 
raised on attempting to write or locate a record during the 
sequential creation or extension of such a data set when the 
space allocated to the data set is full. For a KSDS, the 
condition may also occur when the associated PL/l file is 
opened for update and attempts are made to write new records 
or to increase the size of existing records by the WRITE and 
REWRITE statements respectively. 

IBM 8331 RECORD ALREADY HELD IN EXCLUSIVE CONTROL. 

Explanation : The VSAM data set control interval containing 
the requested record is in the process of being updated by 
another file which used the same DD statement. 

IBM834I REQUESTED RECORD LIES ON NON-MOUNTED VOLUME. 

Explanation : The requested record lies on a non-mounted 
volume of a VSAM data set spanning several volumes. 
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IBM835I ATTEMPT TO REPOSITION FOR SEQUENTIAL READ FAILED. 

Explanation : The attempt to reposition to the next highest 
key for subsequent sequential retrieval on a VSAM KSDS, after 
the 'key not found* condition, has failed. If processing of 
the file is continued , the next I/O statement should have a 
positioning KEY option. (See message IEM831I). 

IBM836I TOO MANY CONCURRENT OPERATIONS ON DATA SET.. 

Explanation : When several files are accessing a VSAM data set 
by; means of the same DD statement (that is, using the same 
title) the STRNO subparameter of the DD statement specifies 
the total number of operations on all files that can be active 
at the same time. A read-rewrite pair of operations on a 
sequential file counts as one operation. For example, if 
three sequential files are to update the same data set at the 
salme time, STRNO=3 should be specified in the DD statement. 



IBM837I ERROR IN INDEX UPGRADE. 



Extol anat ion : A change to a base cluster cannot be reflected 
in one of the indexes of the cluster's upgrade set. 



IBM838I MAXIMUM NUMBER OF ALTERNATE INDEX POINTERS EXCEEDED. 



Explanation : The maximum number of pointers allowed in an 
alternate index for any given key is 32767. 



IBM 83 91 INVALID ALTERNATE INDEX POINTER. 



Explanation : A pointer in the alternate index is invalid. 



This can be caused by incorrect use of the alternate index 
as a Key Sequenced Data set (KSDS) . 



IBM840I INVALID SEQUENTIAL WRITE. 



Explanation: A WRITE statement on a file associated with a 






Relative Record Data Set (RRDS) did not specify a relative 
record number. This resulted in an attempt to write in a slot 
already containing a record. 



IBM850I AGGREGATE LENGTH EXCEEDS 2**24 BYTES 



Explanation : The length of the structure or array to be mapped 
is greater than 2 2a thereby exceeding the limits of 
addressability. 



Programmer Response : Reduce the size of the array or structure 
to al size that can be accommodated within the main storage 
available. If a variable is used to specify the dimension or 
length, check that it has been correctly initialized before the 
storage is allocated to the aggregate. 
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IBM851I UNABLE TO MAP ARRAY STRUCTURE ELEMENT 



Explanation : The program contains a structure with an 
adjustable element and an array element with extents that cause 
the relative virtual origin to exceed 2 32 -1. For example: 

DCL 1 A, 

2 B CHAR(N), 

2 C (32766:32767,32766:32767,32766:32767) 
CHAR (3 2767); 

Programmer Response : Ensure that aggregates with array 
elements remain within the limit of addressability (2 3a -1). 



IBM 8 52 I AGGREGATE CANNOT BE MAPPED TO COBOL OR FORTRAN FORM 



Explanation : An attempt has been made to either pass to or 
obtain from a FORTRAN routine an array of more than 7 
dimensions, or to pass to or obtain from a COBOL routine a 
structure with more than three dimensions - 



Programmer Response : Ensure that PL/I aggregates, passed to or 
from COBOL or FORTRAN routines are within the limits described 
above. 



IBM853I INVALID DATA TYPE EXPECTED FROM FORTRAN FUNCTION. 



Explanation : This message may be produced only when the 
program is executed in conjunction with a program compiled by 
the checkout compiler. It is caused by the use of a FORTRAN 
function that returns a value with attributes declared in the 
RETURNS option of the entry declaration that are other than 
FLOAT, FIXED BINARY, or BIT (non-VARYING) . After the ERROR 
condition is raised, a normal return from the ERROR on~unit 
will cause the PL/i program to be resumed, although no value 
will have been returned to it,. 
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IBM854I MAXIMUM DEPTH OF ITERATION EXCEEDED ON ARRAY INITIALIZATION. 



Example ; 

DCL A(8192) CHAR(l) INIT( (2) ( ( 2) ( (2) ( (2) ( ( 2) ( ( 2) ( (2) 
( (2) ((2) ((2) ((2) ((2) ((2) (1) "A* ))))))))))))) ; 



Explanation ; The error is raised if the depth of iteration 
within the initial attribute on an automatic array exceeds 12™ 



IBM880I A PROGRAM CHECK HAS OCCURRED IN THE SORT/MERGE PROGRAM, 



Explanation : An error has occurred during execution of the 
sort/merge program when invoked from a PL/I program fcy means of 
the PL/I sort interface facilities. The sort program was 
unable to continue and control has been passed to the PL/I 
error-handler. 



Programmer Response : Since the problem has occurred during 
execution of the sort/merge program, refer tlo the appropriate 
sort/merge program manual for an explanation of any diagnostic 
messages produced by the sort program and for any other 
information that may be necessary to correct the fault. 

IBM881I SORT IS NOT SUPPORTED IN CMS- 

Explanation : An attempt has been made to call the SORT 
facility from PL/I. SORT is not available under CMS. The 
ERROR condition has been raised. 



IBM900I 



•WAIT' STATEMENT WOULD CAUSE PERMANENT WAIT. PROGRAM 
TERMINATED. 



Explanation ; A WAIT statement that can never be completed has 
been encountered. For example: 



COMPLETION (El) 
WAIT (El); 



•O'B; 
The event El is inactive and incomplete. 



Programmer Response ; Modify the program so that the WAIT 
statement can never wait for an event that is inactive and 
incomplete. 



IBM910I AN ABEND HAS OCCURRED, USER CODE=nnnn 



Explanation ; An ABEND macro instruction has been issued by the 
problem program and an analysis has not detected any 
overwriting of PL/I control blocks. (The user code is 
presented in decimal digits.) 



IBM 9111 AN ABEND HAS OCCURRED, SYSTEM CODE=SSS 



IBM920I "CHECKPOINT/RESTART* IS NOT SUPPORTED IN A CHECKER ENVIRONMENT. 
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Explanation ; A PL/l program that uses the checkpoint/restart 
facilities has been compiled by the PL/I optimizing compiler 
and executed in association with a PL/i program compiled by the 
PL/I checkout compiler. The CALL PLICKPT statement is ignored 
in these circumstances. 



IBM921I GOTO OUT OF ON-UNIT MAY CAUSE FURTHER USE OF COBOL SUBROUTINE 
TO FAIL. 



Explanation : If a COBOL subroutine is reinvoked after an 
interrupt in the previous invocation was handled by a PL/I 
on- unit that was terminated by a GOTO statement , the COBOL 
subroutine will fail. 



IBM924I 



CLOSING FILE IN ON-UNIT MAY CAUSE FURTHER ERRORS IN THIS 
STATEMENT. 



Explanation ; An on-unit for an I/O condition has been entered 
and the file associated with the on-unit has been closed in the 
on-unit. A GOTO should have been used to exit from the 
on-unit , but was not. The result of a normal return is 
undefined. 

IBM925I PLIRETC VALUE REDUCED TO 999. 

Explanation ; The value passed to the PLIRETC built-in 
procedure is greater than 999. The value has been reduced 
to 999 which is the maximum permitted user value. 

IBM926I CHECKPOINT/RESTART IS NOT SUPPORTED IN CMS. 

Explanation ; An attempt has been me.de to call the CHECKPOINT/ 
RESTART facility from PL/I. CHECK POINT/ REST ART is not 
available under CMS» The ERROR condition has been raised. 
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PART III: PL/I PROMPTER (IKJ) MESSAGES 



This part lists the messages that can be produced by the PL/ I prompter, 
which is used to invoke the PL/I optimizing compiler in a TSO 
environment, and provides further explanation of the message texts. 



FORMAT OF PL/I PROMPTER MESSAGES 

The format of the messages produced by the prompter is: 

[message-number] text 

Each message number is of the form IKJ65nnn[I|AJ where "IKJ 65" indicates 
that the message is a PL/I prompter message, and "nnn" is the number of 
the message. The final character "I" or "A" indicates whether the 
message is informatory or whether some action from the programmer is 
necessary for the prompter to continue. 

The message number is printed only if a request that messages are to 
include such identifiers has been made, either when your user- 
identification was added to the system or in a subsequent PROFILE 
command.. 

The text describes the error that has been detected. If the text 
^ ends with a plus sign, it is possible to obtain an additional message, 

; containing more information, by entering a question mark. In some 

cases, the additional message can have several forms, depending on the 

error,. 

If a message ending in a plus sign is accompanied by message 
IKJ65045A ("REENTER..."), you need not fulfill the request to reenter 
before entering a question mark to obtain further information. But 
although message IKJ650*t5A will not be reissued, its request must 
nevertheless be fulfilled in due course before the prompter can 
continue.. 

To correct an error you may need to refer to the TSO manual for the 
optimizing compiler. If, at any time, you want to terminate the 
prompter, in order, for example, to enter another command, press the 
ATTN key (or its equivalent) . 

The messages are formatted in this publication as they will appear on 
the terminal except that page width restricts line length to 72 
characters, whereas on a terminal, up to 120 characters can be used. 
The entry for each message number in the following list includes all 
texts associated with that number. That is, the original text 
(sometimes this has two forms) plus any additional texts that may be 
obtained by entering a question mark. 



SYMBOLS IN MESSAGES 

Many of the messages in this publication contain symbols indicating 
where information will be inserted when the message is printed. The 
symbols used are: 

ddd - a name taken from the PLI or RUN OPT command that was used to 
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invoke the prompter. 
xxx - a name or number generated by the prompter. 

BEFORE CALLING IBM ... 

If you consider that a message has been produced erroneously, then 
before calling IBM for programming support, retain the listing produced 
at the terminal and inform the TSO operator, who is required to generate 
other diagnostic information for messages relating to data set 
allocation,. 
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IKJ65001I DATA SET ddd NOT ALLOCATED, TOO MANY DATA SETS+ 

UTILITY DATA SET NOT ALLOCATED, TOO MANY DATA SETS+ 
USE FREE COMMAND TO FREE UNUSED DATA SETS 

Explanation ; A data set required by the optimizing compiler 
cannot be allocated because insufficient DD statements are 
included in the LOGON procedure. Allocation may be possible 
if you can free data sets used for any previous operations. 

You can determine the number of data sets that need to be 
freed because the data sets are allocated, if required, for 
the files in the following order: SYSIN, SYSLIN, SYSPRINT, 
SYSPUNCH, SYSLIB, and SYSUT1. You may need to refer to the 
data set naming conventions to find out which file the 
specified data set name is associated with. 

IKJ65002I DATA SET ddd NOT ALLOCATED, DATA SET NOT ON VOLUME* 
CATALOG INFORMATION INCORRECT 

Explanation : The data set cannot be found on the volume 
specified in the operating system's data set catalog. It is 
possible that the data set has been deleted or moved to 
another volume by a utility program without altering the 
catalog entry. Reenter another data set name. If you enter 
a null line, the default data set name will be assumed, 
except for the primary input data set and data sets specified 
in the LIE operand. If no alternative data set can be used, 
or if the error persists, consult your system operations 
personnel. 

IKJ65003I DATA SET ddd NOT ALLOCATED, REQUIRED VOLUME NOT MOUNTED* 
VOLUME OR CVOL NOT ON SYSTEM AND CANNOT BE ACCESSED 

Explanation : The data set cannot be found because the volume 
on which it resides,, or the volume containing index 
information (the control volume) is not mounted ready for 
use. Reenter the name of a data set that resides on a volume 
that is mounted. If you enter a null line, the default data 
set name will be assumed, except for the primary input data 
set and data sets specified in the LIB operand. If no 
alternative data set can be used, or if it is the control 
volume that is not mounted, request the system operator to 
mount the volume required. 

IKJ65004I DATA SET ddd NOT ALLOCATED, SYSTEM OR INSTALLATION ERROR* 
CATALOG ERROR CODE xxx 
DYNAMIC ALLOCATION ERROR CODE XXX 
CATALOG I/O ERROR 



Explanation : The data set cannot be allocated because of an 
error in a routine handling the data set catalog or the 
dynamic allocation of data sets. Reenter another data set 
name. If you enter a null line, the default data set name 
will be assumed, except for the primary input data set or 
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data sets specified in the LIB operand. If no alternative 
data set can be used, or if the error persists, consult your 
system maintenance personnel,. 



IKJ65005I DATA SET ddd NOT ALLOCATED+ 

UTILITY DATA SET NOT ALLOCATED* 
INVALID UNIT IN USER ATTRIBUTE DATA SET 
NO UNIT AVAILABLE 



Explanation : The data set cannot be allocated because the 
attributes associated with your user-identification specify a 
unit type that is invalid or unavailable on your system- If 
you are authorized to use the ACCOUNT command, you car* change 
the unit type associated with your user-identification. 
Otherwise, consult your system maintenance personnel. 



IKJ65006I DATA SET ddd ALREADY IN USE, TRY LATER+ 

DATA SET IS ALREADY ALLOCATED TO ANOTHER JOB OR USER 



Explanation s The data set cannot be allocated to you because 
it is already allocated to another TSO user, or to another 
job running in the system. If all uses of the data set have 
the SHR status, this message will not be produced. You can 
either enter a null line to cause the default data set name 
to be applied (except for the primary input data set or data 
sets specified in the LIB operand), or terminate the 
prompter. If you terminate the prompter, you can reinvoke it 
by specifying a different data set name, or carry on with 
another operation until the required data set is freed. 

IKJ65007I DATA SET ddd NOT IN CATALOG 



Explanation : The data set cannot be found in the operating 
system's data set catalog. Check the name of the data set, 
taking into account the data set naming conventions used by 
the prompter, or check that the data set is cataloged. 
Reenter the correct cataloged data set name. If you enter a 
null line, the default data set name will be assumed, except 
for the primary input data set and data sets specified in the 
LIB operand. 



IKJ65008I MEMBER ddd NOT IN DATA SET ddd 



Explanation : The member cannot be found in the partitioned 
data set. Check the name of the member and the data set, 
taking into account the data set naming conventions used by 
the prompter. Reenter the correct data set name plus member 
name,. If you enter a null line, the default data set name 
will be assumed (without a member name) , except for the 
primary input data set or data sets specified in the LIB 
operand. 



IKJ65009I DATA SET ddd NOT USABLE* 
I/O SYNAD ERROR 
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OPEN ERROR 

Explanation ; This message applies only to partitioned data 
sets. The data set cannot be used because of an error 
detected when opening the data set, or when reading 
information from the data set's directory. Reenter another 
data set name. If you enter a null line, the default data 
set name will be assumed, except for the primary input data 
set and data sets specified in the LIE operand. If no 
alternative data set can be used, or if the error persists, 
consult your system maintenance personnel. 

IKJ65010I INVALID DATA SET NAME, ddd EXCEEDS 44 CHARACTERS 

Explanation s A qualified data set name must not exceed 44 
characters in length. The separating periods and any 
qualifiers added by the prompter are included in the count. 
Reenter a name which forms a valid qualified data set naire. 
If you enter a null line, the default data set name will be 
assumed, except for the primary input data set and data sets 
specified in the LIB operand. 

IKJ65011I ddd IS A DELETED OPTION AND BAS BEEN IGNORED* 

THE OPTION WAS DELETED AT SYSGEN AND IS NOT AVAILABLE FOR DSE 

Explanation ; The option cannot be used because when your 
system was generated it was deleted from the list of options 
supported by the optimizing compiler. You may be able to 
reinstate the option temporarily by using the CONTROL option. 
However, at the moment the option specified has been ignored. 

IKJ65012I NOT ENOUGH MAIN STORAGE TO EXECUTE COMMAND 

Explanation ; There is insufficient space available for the 
prompter in the main storage region- The prompter requires 
much less main storage than the optimizing compiler, so you 
need a much larger region size to use the optimizing compiler 
successfully. 

If possible, relog-on with a LCGCN procedure that has a 
region size of at least 54K bytes for the compiler, plus the 
space required by TSO (usually about 30K bytes) . 
Alternatively, if you are authorized to use the ACCOUNT 
command, you can increase the region size for the current 
LOGON procedure. Otherwise, consult your system operations 
personnel. 

IKJ65013I COMMAND SYSTEM ERROR* 
xxx ERROR CODE xxx 

Explanation ; An error has occurred in one of the TSO service 
routines. The routine is specified in the text inserted 
before the word ENTER. If this message is produced, consult 
your system maintenance personnel. 

IKJ65014I DATA SET ddd NOT ALLOCATED, NOT ENCUGH SPACE ON VOLUMES* 
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USE DELETE COMMAND TO DELETE UNUSED DATA SETS 

Explanation ; One of the data sets required by the optimizing 
compiler cannot be allocated because insufficient space 
exists on each of the available volumes. The prompter is 
terminated. The space that the prompter requests for each 
data set is listed in the TSO manual for the optimizing 
compiler. Allocation may be possible if you can delete any 
data sets that are no longer required. 

You can determine the amount of space that you may need to 
make available because the data sets are allocated, if 
required, for the files in the following order: SYSIN, 
SYSLIN, SYSPRINT, SYSPUNCH, SYSLIE, and SYSUT1. You may need 
to refer to the data set naming conventions to find out which 
file the specified data set name is associated with. 

IKJ65015I DATA SET ddd NOT ALLOCATED, SHARED* 

USE FREE COMMAND TO FREE THE DATA SET 

Explanation ; The data set cannot be allocated because it is 
already allocated for this session. If all uses of the data 
set have the SHR status, this message will not be produced. 
You can either enter a null line to cause the default data 
set name to be applied (except for the primary input data set 
or data sets specified in the LIB operand) , or terminate the 
prompter. If you terminate the prompter, you can then free 
the data set and invoke the prompter again. The data set 
will be reallocated for the optimizing compiler. 

IKJ65016I DATA SET ddd WILL CREATE INVALID CATALOG STRUCTURE* 

A NAME CANNOT BE BOTH AN INDEX AND THE LAST QUALIFIER OF A 
QUALIFIED DATA SET NAME 

Explanation ; The qualified data set name uses the same name 
both as an index and as the last qualifier. For example, 
when specifying a simple name you have used the same name 
that the prompter will add as the descriptive qualifier. You 
should reenter a name that will form a valid cataloged data 
set name. If you enter a null line, the default data set 
name will be assumed, except for the primary input data set 
and data sets specified in the LIB operand. 

IKJ65017I DATA SET ddd NOT ON DIRECT-ACCESS DEVICE, NOT SUPPORTED 

Explanation ; TSO does not support data sets that reside on 
devices which are not direct-access. The operating system's 
data set catalog indicates that this data set resides on 
another type of device. You should reenter the name of a 
data set on a direct-access device. If you enter a null-line 
the default data set name will be assumed, except for the 
primary input data set and data sets specified in the LIB 
operand. 

IKJ65018I DATA SET ddd RESIDES ON MULTIPLE VOLUMES, NOT SUPPORTED 

Explanation ; TSO does not support data sets that reside on 
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more than one volume. The operating system's data set 
catalog indicates that this data set resides on more than one 
volume. You should reenter the name of a data set that 
resides on only one volume. If you enter a null-line, the 
default data set name will be assumed, except for the primary 
input data set and data sets specified in the LIB operand. 



IKJ65019I ddd IS AN UNSUPPORTED OPTION 



Explanation : You have specified an option which is supported 
only by the PL/i Checkout Coirpiler. The option is ignored. 



IKJ65020I TRANSFER COUNT IN FLOW OPTION INVALID* 
VALID VALUES ARE THROUGH 3 2767 



Explanation : The first argument of the FLOW option, which 
specifies the number of transfers of control that are to be 
included in FLOW and SNAP lists, must specify a value within 
the range through 32767. You should reenter a correct 
value. If you enter a null line, the default value will be 
assumed . 



IKJ65021I VALUE MUST BE ALL NUMERIC 



Explanation : The value in the argument of the SIZE option 
(except for the final K) should contain only digits. 
Reenter the value correctly. If you enter a null line, the 
default value will be assumed. 



IKJ65022I TRANSFER COUNT DEFAULT ASSUMED. 



Explanation : You have entered a null line in response to a 
request to reenter the transfer count for the FLOW option. 



IKJ65023I VALUE IN LINECOUNT OPTION INVALID* 
VALID VALUES ARE 10 THROUGH 32767 



Explanation : The argument of the LINECOUNT option, which 
specifies the number of lines for each page of the SYSPRINT 
file, must specify a value within the range 10 through 32767 
You should reenter a correct value. If you enter a null 
line, the default value will be assumed. 



IKJ65024I LINECOUNT DEFAULT ASSUMED 



Explanation : You have entered a null line in response to a 
request to reenter the argument of the LINECOUNT option. 



IKJ65025I VALUE IN SIZE OPTION INVALID* 

VALID VALUES ARE MAX, OR 5 OK THROUGH 163 84K 
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Explanation : The argument of the SIZE option, which 
specifies the amount of main storage to be used by the 
optimizing compiler, must be MAX (indicating that the 
compiler is to use all of the main storage available in the 
region) or be within the range 50K through 16384K (or the 
equivalent values in bytes). You should reenter a correct 
value. If you enter a null line, the default value will be 
assumed. 



IKJ65026I SIZE DEFAULT ASSUMED 

Explanation ; You have entered a null line in response to a 
request to reenter the argument of the SIZE opticn. 

IKJ65027I MEMBER SPECIFIED FOR DATA SET ddd IS IGNORED+ 

MEMBER NAME FOR LIB DATA SET IS TAKEN FROM INCLUDE STATEMENT 

Explanation s The prompter has ignored the member name 
specified for a partitioned data set in the LIB operand. The 
LIB operand specifies one or more data sets to be used as 
secondary input to the preprocessor. The names cf the 
members required from these data sets are taken from XINCLUDE 
statements in the PL/I source program. 

IKJ65028I DATA SET ddd IS NOT A PARTITIONED DATA SET+ 

THE DATA SET FOR LIB MUST BE A PARTITIONED DATA SET 

Explanation ; Data sets specified in the LIB operand must 
have partitioned organization. The LIB operand specifies 
data sets to be used as secondary input to the preprocessor. 
You should reenter the name of a partitioned data set. If 
you enter a null line, the LIB operand is ignored. 

IKJ65029I DECK OUTPUT IGNORED+ 

DECK AND MDECK PRODUCE OUTPUT ON THE SAME DATA SET 



Explanation ; The output generated by the DECK option and the 
MDECK option cannot be written on the same data set. NODECK 
is assumed instead of DECK. This error may have occurred 
because the prompter uses the same default data set name for 
both options. 



IKJ65034I BLOCK COUNT IN FLOW OPTION INVALID* 
VALID VALUES ARE THROUGH 32767 



Explanation s The second argument of the FLOW option, which 
specifies the number of blocks that are to be included in 
FLOW and SNAP lists, must be within the range through 
32767. You should reenter a correct value. If you enter a 
null line, the default value will be assumed. 



IKJ65035I BLOCK COUNT DEFAULT ASSUMED 
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Explanation ; You have entered a null line in response to a 
request to reenter the block count for the FLOW option. 

IKJ65036I OPTIMIZING COMPILER INVOKED 

Explanation ; The prompter has invoked the PL/I optimizing 
compiler. Any subsequent messages issued are listed in the 
first part of this manual. 

IKJ65037I INVALID CONTROL FIELD 

Explanation ; The argument of the CONTROL option is 
incorrect. The correct "password" established for your 
installation should have been specified. Processing is 
terminated. 

I KJ 650381 SECOND SUB FIELD ON OBJ OPTION IGNORED 

Explanation ; There must not be two arguments specified for 
the OEJECT option when using the optimizing compiler. The 
second argument is ignored. 

IKJ65039I INVALID RIGHT HAND MARGIN+ 
VALUE MUST BE 1 THROUGH 100 

Explanation ; The second argument of the MARGINS option, 
which specifies the position of the right hand margin for the 
PL/I source program, must specify a position from 1 through 
100. You should reenter a correct value. If you enter a 
null line, the default value will be assumed*. 

IKJ6504 0I MARGINS OPTION IGNORED. 

Explanation ; You have entered a null line in response to a 
request to enter the left or right margin position. 
The option is ignored. 

IKJ65041I INVALID LEFT HAND MARGIN* 

VALUE MUST BE LESS THAN RIGHT HAND MARGIN 

Explanation ; The first argument of the MARGINS option, which 
specifies the position of the left hand margin for the PL/I 
source program, must specify a position to the left of the 
right hand margin specified in the second argument. You 
should reenter a correct value. If you enter a null line, 
the default value will be assumed. 

IKJ65043I INVALID PRINTER CONTROL CHARACTER POSITION* 

PRINTER CONTROL CHARACTER MUST BE OUTSIDE THE LEFT AND RIGHT 
MARGINS 

Explanation ; The third argument of the MARGINS option, which 
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specifies the position of a printer control character that is 
used to format the source listing, roust specify a position 
outside the part of the line used by the PL/I source program. 
You should reenter a correct value. If you enter a null 
line, the default value will be assumed. 



IKJ65044I PRINTER CONTROL CHARACTER POSITION DEFAULT ASSUMED 



Explanation : You have entered a null line in response to a 
request to reenter the printer control character position- 



IKJ65045A REENTER - 



Explanation : The prompter is waiting for you to reenter, 
correctly, the erroneous item specified in the preceding 
message. If the preceding message ends with a plus-sign, 
can still enter a question mark to get more information 
before reentering the item requested. 



you 



IKJ65046I INVALID ARGUMENT IN OPTIMIZE OPTICN+ 
VALID ARGUMENTS ARE 0, 2, TIME OR NO. 



Explanation : The argument for the OPTIMIZE option must be 0, 
2, NO, or TIME. NO and are equivalent to NOOPTIMIZE; they 
suppress optimization of the object program,. TIME and 2 both 
cause the object program to be optimized to reduce its 
execution time. You should reenter a correct value. If you 
enter a null-line, the default value is assumed. 



IKJ65047I OPTIMIZE DEFAULT ASSUMED 



Explanation : You have entered a null -line in response to a 
request to reenter the argument for the OPTIMIZE option. 



IKJ65048I INVALID ARGUMENT IN CHARSET OPTION* 

VALID ARGUMENTS ARE EBCDIC, BCD, 60, AND 48 



Explanation : You have entered the CHARSET option with an 
invalid argument. You should reenter the invalid argument 
again correctly. If you enter a null line, the default form 
of the option will be assumed. 



IKJ65049I DEFAULT DATA SET NAME ASSUMED 



Explanation : You have entered a null line in response to a 
request to reenter a data set name. 



IKJ65050I CHARSET DEFAULT ASSUMED 



Explanation : You have entered a null line in response to a 
request to reenter a CHARSET argument. 
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IKJ65051I LIB HAS BEEN SPECIFIED WITH NOMACRO. LIB IS IGNORED 



Explanation : The MACRO option has been deleted for your 
installation , with a default of NOMACRO. Therefore, use of 
the LIE operand to specify secondary input data sets for the 
preprocessor has no meaning and is ignored. 



IKJ65052I A DATA SET NAME MUST BE SPECIFIED FOR LIB 



Explanation ; You have entered a null line in response to a 
request to reenter a data set name for the LIB operand. This 
is invalid because no default data set name can be assumed by 
the prompter. 

IKJ65053I INVALID RIGHT HAND MARGIN IN SEQUENCE OPTICN+ 

THE RIGHT HAND MARGIN MUST BE 1 THROUGH 100 AND MUST NOT 
OVERLAP THE SOURCE PROGRAM SPECIFIED EY MARGINS 

Explanation : The second argument of the SEQUENCE option, 
which specifies the position of the right-hand margin for the 
sequence number, must specify a position from 1 through 100, 
which does not cause the sequence number to overlap the 
source program. You should reenter a correct value. If you 
enter a null-line, the SEQUENCE option is ignored. 

IKJ650541 INVALID LEFT HAND MARGIN IN SEQUENCE OPTION+ 

THE LEFT HAND MARGIN MUST BE LESS THAN THE RIGHT HAND MARGIN 
AND MUST NOT OVERLAP THE SOURCE PROGRAM SPECIFIED BY MARGINS 



Explanation : The first argument of the SEQUENCE option, 
which specifies the position of the left-hand margin for the 
sequence number, must specify a position to the left of the 
right hand margin (specified in the second argument) which 
does not cause the sequence number to overlap the source 
program. You should reenter a correct value. If you enter a 
null- line, the SEQUENCE option is ignored. 



IKJ65055I SEQUENCE OPTION IGNORED 



Explanation : You have entered a null-line in response to a 
request to reenter the left or right hand margin of the 
sequence number. 



IKJ65056I INVALID NUMBER OF SUBTASKS IN ISASIZE OPTION* 
VALID VALUES ARE 1 THROUGH 255 



Explanation : The third argument of the ISASIZE option, which 
specifies the maximum number of subtasks that will be active 
at any one time during execution, must specify a number from 
through 255. You should reenter a correct value. If you 
enter a null-line, the value is assumed. 



IKJ65057I ZERO SUBTASKS ASSUMED 
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Explanation ; You have /Entered a null-line in response to a 
request ta reenter the number of subtasks for the ISASIZE 
option. 

IKJ65058I LIB HAS BEEN SPECIFIED WITH NOMACRO. MACRO IS ASSUMED 

Explanation : The LIB operand has no meaning if the NOMACRO 
option applies for the compilation. Therefore MACRO is 
assumed instead of NOMACRO. 

IKJ65059 THE OPTIMIZING COMPILER IS NOT ON THE SYSTEM. 

Explanation ; The prompter invoked the control phase of the 
optimizing compiler, IELOAC. However, the control phase 
cannot be found on the system link library or any private 
library specified for use with the system link library. 

IKJ65060 THE CHECKOUT COMPILER IS NOT ON THE SYSTEM. 

Ex planation : The prompter has invoked the control phase 
of the checkout compiler (IEN512NS) or the options checking 
phase (IEN476NS) . However, the phase cannot be found on the 
system link library or on any private library specified for 
use with the system link library. 

IKJ65063I FIRST ARGUMENT IN LIST OPTION INVALID* 

VALID VALUES ARE 1 THROUGH 99999999 

Explanation ; The first argument of the LIST option, 
which causes the compiler's generated code to be 
printed, must specify a value in the range 1 through 
99999999. You should reenter a correct value. If 
you enter a null line, the LIST option is passed to 
the compiler with no arguments. 

IKJ65064I SECOND ARGUMENT IN LIST OPTION INVALID* 

THE VALUE MUST BE GREATER THAN THE FIRST ARGUMENT 

Explanation : The second argument of the LIST option, 

which causes the compiler's generated ccjde to 

be listed, must be greater than the first argument. 

You should reenter a correct value. If you 

enter a null line, the LIST option is passed 

to the compiler with no arguments. 

IKJ65065I SECOND ARGUMENT IN LIST OPTION IGNORED 

Explanation ; You have entered a null line 
as a response to a request to reenter the 
second argument of the LIST OPTION. The 
second argument is ignored and the LIST 
option passed to the compiler with any one 
argument. 

IKJ65066I ARGUMENTS TO LIST IGNORED 

You have entered a null line as a response to a 
request to reenter the five arguments of the LIST 
option. 
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IKJ65067I MEMBER mmm SPECIFIED BUT ddd NOT A PARTITIONED DATA SET 

Explanation : The specified data set is not a partitioned 
data set r but a member name has been specified- Check the 
name of the data set and reenter the correct name. If you 
enter a null line, the default data-set name will be assumed, 
except for the primary input data set and data sets specified 
in the LIB operand. 
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PART IV: PL/I CMS (DMS) MESSAGES 



This part lists the messages produced by the compiler interface module 
when the OS PL/i Optimizing Compiler is run under the Conversational 
Monitor System (CMS) . The messages are concerned with the use of the 
PLIOPT command. For further details of CMS commands , and messages 
originating from them, see the following IBM Virtual Machine 
Facility/370 publications: 

Command Language User's Guide, Order No. GC20-1804 

Conversational Monitor System (CMS) : Program Logic, 
Order No,. SY20-0881 



FORMAT OF PL/I CMS MESSAGES 



Each message has a number of the form DMSPLInnns, where "DMS" indicates 
that the message is a CMS message, "PLi" indicates that the message is produced 
by the PL/l compiler interface module, "nnn" is the number of the message, 
and "s" is the severity- level code. The messages may have one of tv» 
severity levels; the following codes indicate which: 

• W - Warning message, signifying that an error has been made, but 

that the error is not severe enough to stop operation of the 
PLIOPT command. 

E - Error message, signifying that an error has been made that 

makes it impossible to continue. The PLIOPT command will have 
to be reentered. 

There is only one form of the CMS messages; that is, there are no 
short and long alternative forms . 

The messages listed in this part use the following syntax 
conventions : 

• Items within brackets: litem] are optional; when the message is 
printed,, it may include or exclude such items. 

• Items within braces: £item|item} are selectively printed; either the 
first or the second item will be included in the message when it is 
printed. 

• Quotes around an item: 'item' will actually form part of the message 
when it is printed, to indicate an inserted item. 



SYMBOLS IN MESSAGES 



Some of the messages listed in this part contain symbols indicating 
where the message will contain inserted information when it is printed. 
The symbols used are: 



fn 
ft 
fm 

dn 



filename 

f iletype 

filemode (mode letter and number) 

alphameric information 

device name (mnemonic name for ecu, such as 'PUNCH' 

•DISK", •CON € , or 'TAPe*) 
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The terms used in this section are those used in the CMS 
publications. 



BEFORE CALLING I EM.,. . 

If you consider that a message has been produced erroneously, then 
before calling IBM for programming support, retain the listing produced 
at the terminal and refer to Appendix C of the OS PL/ I Opt imi zing 
Compiler : Programmer* s Guide, Order No. SC 33-000 6 for the requirements 
for problem determination and APAR submission. 
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DMSPLI001E NO FILENAME SPECIFIED 
Return Code = 24 



Explanation ; The command requires the specification of at 
least one file name. 

DMSPLI002E FILE [ f fn Ift [fin]]'] NOT FOUND 
Return Code = 28 

DMSPLI003E INVALID OPTION •option 1 

Return Code =24 

Explanation ; The option specified is not valid for the 
PLIOPT command. 

DMSPLI006E NO READ/WRITE DISK ACCESSED 

Return Code =36 

Explanation ; The user does not have access to a read/ write 
disk where the compiler can write its output or utility 
file(s). 

DMSPLI038E FILEID CONFLICT FOR DDNAME ' ... .' 
Return Code = 40 

DMSPLI044E RECORD LENGTH EXCEEDS ALLOWABLE MAXIMUM 

Return Code = 32 

Explanation ; PUNCH can accept record lengths cf only 80 
characters or less. PRINT will accept only 133 or 151 
maximum characters, depending on the size of the real 
printer device. EDIT utilizes a maximum record length of 
160 characters. 

DMSPLI052E MORE THAN 100 CHARS OF OPTIONS SPECIFIED 
Return Code =24 

DMSPLI070E INVALID PARAMETER •parm' 

Return Code = 24 

Explanation ; The specified parameter is not a valid option 
for the PLIOPT command. 

DMSPLI074W ERROR { SETTING | RESETTING} AUXILIARY DIRECTORY 
No Return Code 

DMSPLI075E DEVICE 'devicename' INVALID FOR IINPUT| OUTPUT} 
Return Code =40 
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DMSIBM099E CMS/DOS ENVIRONMENT ACTIVE 

Explanation ; The user is attempting to execute a program 
compiled under OS, in a DOS environment. The SET DOS OFF 
command should be executed and the LOAD command re- 
executed. 



DMSPLI251W INPUT BEGINNING ' ...' IGNORED 

No Return Code 

Explanation ; Input occurs after a right parenthesis, which 
closes the option string. 
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APPENDIX: ERROR AND RESTRICTION NUMBERS 



Error and restriction numbers that are identified in messages IEL0230I 
and IEL0970I are listed below. The phase in which the condition 
occurred, the probable cause, and possible programmer response are 
given for each number. The base messages for IEL0230I and IEL0970I are 
described in "Part I: Compile-time (IEL) Messages" in this book. 

ERROR NUMBER DURING PHASE (any) ., 

Explanation ; A program check interrupt has occurred. 



ERROR NUMBER 1 DURING PHASE (any). 

Explanation : The phase specified in an XPST macro statement has not been found. The 
remainder of the job-step has teen cancelled. 



ERROR NUMBER 2 DURING PHASE (any) . 

Explanation ; All pages in main storage are UNMQVAELE. An atteirpt has been irade, in 
response to a request from the stated phase, to find a page which iray be spilled in 
order to make rocm for either a new cr an existing page. However, since all the pages 
are marked UNMOVABLE, no such spill candidate could be found. 

Programmer Response ; If possible, rerun the program with a larger SIZE specification. 
This will increase the size of the page area, and thus the number of pages in main 
storage. 



ERROR NUMBER 3 DURING PHASE (any) . 

Explanation : A call from the stated phase has been made to the control phase which 
necessitates either (a) writing a Eage to the spill file, cr (b) reading a page into 
train storage froir the spill tile. Prior to the I/C operation, the track address of 
the page concerned has been found to be invalid. In case (a), the track address held 
in the header of the page in main storage has been overwritten, and in case (t) the 
track address of the requested page is invalid. 

Programmer Response ; Attempt simplification of the statement referred tc in the error 
ties sage. 



ERROR NUMBER 4 DURING PHASE (any) . 

Bxplanation ; An attempt has been made by the stated phase to read into main storage 
an existing page (specified by its track address) from the spill file. This page, 
lowever, has not been spilled, the record at the given track address on the spill file 
being a dummy record at this stage. When this record is read into main storage, its 
brack address field in the page header, not having been initialized, does not match 
that of the record. 

Programmer Response ; Attempt simplification of the statement referred to in the error 
rcessage. 
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ERROR NUMBER 5 DURING PHASE AI|UA|UE DUE TO PREVIOUS ERROR NUMBER n IN PHASE p. 

Explanation : A compiler error has occurred which makes it impossible for the error 
editor or the dump phase to continue. 



RESTRICTION NUMBER 81 DURING PHASE EA. 

Explanation ; The compiler has attempted to correct a series of source errors, and 
this has had a cumulative effect leading to an "unrecoverable" error. 

Programmer Response ; Correct the source errors diagnosed before the above error and 
rerun the progran. 



ERROR NUMBER 100 DURING PHASE (any). 

Explanation ; Invalid dictionary reference passed to decoding routine XRFAB. 

RESTRICTION NUMBER 101 DURING PHASE (any). 
Explanation ; Dictionary full. 

RESTRICTION NUMBER 103 DURING PHASE (any). 

Explanation ; An attempt has been made to create a dictionary entry larger than a 
page. 

ERROR NUMBER 105 DURING PHASE (any). 

Explanation ; A phase has requested a page which is said to be in the page area. It 
is not. This message indicates a logic error in the phase concerned. 

RESTRICTION NUMBER 151 DURING PHASE GA. 

Explanation ; Invalid or incorrect specifications have been included in the VALUE 
option of a DEFAULT statement. 

Programmer Response ; Avoid the use of, or correct, the relevant VALUE option 
specification (s) in the statement referred to in the error message. 

RESTRICTION NUMBER 152 DURING PHASE GA. 

Explanation ; Too deep a parenthesis level has been used in an ENVIRONMENT attribute 
option-list. 

Programmer Response ; Remove unnecessary parentheses in ENVIRONMENT attribute 
option-list arguments. 
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ERROR NUMBER 154 DURING PHASE GA. 

Explanation ; Error during the processing of the attributes in a DECLARE statement, 

ERROR NUMBER 201 DURING PHASE GM. 

Explanation : An error has been made in statement-label handling. 
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Programmer Response : Check the syntax of the label prefix of the statement referred 
to in the error message. 



RESTRICTION NUMBER 220 DURING PHASE (GA| GE I GI |GM) . 

Explanation ; During the scan of an expression, the semicolon has been found in an 
apparently incorrect position in the statement. 

Programmer Response : Check the syntax of the statement. If this is correct, the 
statement should be simplified. 



RESTRICTION NUMBER 221 DURING__PHASE IA. 

Explanation ; An invalid statement type has been found in the secondary input text 
stream. 

ERROR NUMBER 222 DURING PHASE IA. 

Explanation ; Underflow of implicit locator chain stack. 



RESTRICTION NUMBER 223 DURING PHASE IE. 

Explanation ; Unqualified REFER item found. 

Programmer Response : Avoid using the REFER option in this statement. 

ERROR NUMBER 261 DURING PHASE IE. 

Explanation : Structure element descriptor cannot .be found. 

Programmer Response : Avoid using structures in this statement. 

ERROR NUMBER 262 DURING PHASE IE. 

Explanation : Dimension entry cannot be found in dimension stack. 

Programmer Response : Avoid using arrays in this statement. 

ERROR NUMBER 263 DURING PHASE IE. 

Explanation : End of structure stack found where not expected. 

Programmer Response : Avoid use of structures in this statement. 

ERROR NUMBER 2 64 DURING PHASE IE. 

Explanation : End of dimension stack found when processing array of structures. 

Programmer Response ; Avoid using arrays of structures in this statement. 
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ERROR NUMBER 265 DURING PHASE IE. I 

Explanation ; End of text page found where not expected. 
Programmer Response ; Avoid array assignments in this statement. 

ERROR NUMBER 266 DURING PHASE IE. 

Explanation : Aggregate assignment marker not followed by dictionary reference. 

Programmer Response ; Avoid using functions with aggregate arguments in this 
statement . 

ERROR NUMBER 281 DURING PHASE II. 
Explanation : Main stack underflow. 

ERROR NUMBER 282 DURING PHASE II. 

Explanation : Main stack overflow. 

Programmer Response : Simplify the statement involved. 

RESTRICTION NUMBER 301 DURING PHASE (any) . , 

Explanation ; More than 32 qualified temporaries are currently active. 

Programmer Response ; Simplify any expressions in the statement involved, particularly 
any that refer to based or subscripted variables. 

ERROR NUMBER 302 DURING PHASE (any) . 

Explanation ; The phase has encountered a reference to a qualified temporary without 
having encountered code for its creation. (Qualified temporaries are used for based 
and subscripted variables.) 

Programmer Response ; Simplify any expressions in the statement involved. 

ERROR NUMBER 303 DURING PHASE KA. 

Explanation ; The phase has found a reference to a string temporary tut has not found 
code for the creation of such a string temporary. 

Programmer Response ; Simplify any string expressions in the stateirent involved. 

ERROR NUMBER 304 DURING PHASE KA. 

Explanation ; The phase has found a request for the creation of a string temporary in 
an operation that should not require one. 

Programmer Response ; Simplify the use of string expressions in the statement 
involved. 
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RESTRICTION NUMBER 305 DURING PHASE KA. 

ixplanation : Too many string temporaries (more than 25) are active. 

'rogrammer Response : Simplify any string expressions in the statement involved. 

ERROR NUMBER 306 DURING PHASE KA. 

Explanation ; Error has been discovered in the compiler labels generated for the 
program. 

Programmer Response : Rearrange the branching in an IF... THEN GOTO ... statement . 

SRROR NUMBER 321 DURING PHASE IK. 

explanation: An incorrect entry has been found in the sort pages. 

Programmer Response : Do not specify either or both of the ATTRIBUTE and XREF coirpjler 
Dptions for this prograir. 

RESTRICTION NUMBER 322 DURING PHASE IK. 

Explanation : An incorrect entry has teen found in the ENVIRONMENT attribute 
Dption-list for a file. 

Programmer Response : Do not specify the ATTRIBUTE compiler option for this program. 

CRROR NUMBER 341 DURING PHASE IM. 

Explanation : The "end of program" marker has been found in error. The marker has 
been encountered during a text scan before the "end of program" text table has been 
found . 



RESTRICTION NUMBER 361 DURING PHASE IQ. 

Explanation : For computing the size of a target of a concatenate operation, the 
phase uses a stack whose maximum depth is 30. The maximum has been exceeded. 

Programmer Response : Avoid using more than 30 operands in a concatenate operation. 



ERROR NUMBER 3.62 DURING PHASE IQ. 

Explanation : Erroneous coding in the phase. 

Programmer Response : Avoid built-in functions as operands in concatenate expressions. 

ERROR NUMBER 4 02 DURING PHASE KI. 

Explanation : A text-table corresponding to the END statement of a user-written 
do-loop cannot be found, owing to incorrect input from a previous phase, probably a 
syntax checking phase. 
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ERROR NUMBER 441 DURING PHASE KL. 

i 

Explanation ; Text stack is full - logic error in Phase KL. 

ERROR NUMBER 461 DURING PHASE KM. 

Explanation: Text table stack is full - logic error in Phase KM. 

ERROR NUMBER 481 DURING PHASE KQ. 

Explanation : Text input to Phase KQ does not start with an SL text table. 

Programmer Response : simplify the first statement in the compilation. 

ERROR NUMBER 482 DURING PHASE KQ. 

Explanation : An error has been found during the scan of skeleton text tables in Phast 
Kg, in the compiler-generated subroutine generation routine. 

Programmer Response : Simplify the statement referred to in the error message. 

ERROR NUMBER 4 83 DURING PHASE KQ. 

Explanation : A FORME text table of unknown type has been encountered by the phase. 
This is probably due to bad output from Phase II or a logic error in the processing oi 
FORME text tables by Phase KQ. 

Programmer Response ; Simplify the appropriate stream I/O statement. 

ERROR NUMBER 4 85 DURING PHASE KQ. 

Explanation : A qualified temporary encountered in a stream I/O text table has not 
been seen previously in the text. 

Programmer Response : Simplify the appropriate stream I/O statement. 

ERROR NUMBER 4 88 DURING PHASE KQ. 

Explanation : Error in input text - a null operand has been found in a DATAE text 
table. 

Programmer Response : Simplify the stream I/O statement referred to in the error 
message. 

ERROR NUMBER 489 DURING PHASE KQ. 

Explanation : Text input to Phase KQ contains no text tables for a format list. 

Programmer Response : If possible, rewrite the GET|PUT EDIT statement with fewer pair* 
of data and format lists. 
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ERROR NUMBER 492 DURING PHASE KQ. 

Explanation ; Input text error. The format list input text to Phase KQ in an edit I/O 
statement starts with a FITE text table. 

Programmer Response ; Simplify the format list in the edit I/O statement indicated by 
the error message. 



ERROR NUMBER 501 DURING PHASE KV. 

Explanation ; The phase has encountered an UNSPEC of a picture that should have been 
replaced by a reference to a character string. 

Programmer Response ; Avoid UNSPEC, particularly of pictures. 



ERROR NUMBER 522 DURING PHASE OA. 

Explanation ; The table containing information about temporary operands has been 
searched for a temporary which could not be found. 



ERROR NUMBER 524 DURING PHASE OA. 

Explanation ; The table containing information about qualified temporaries has been 
searched for a qualified temporary which could not be found. 



ERROR NUMBER 529 DURING PHASE OA. 

Explanation ; The stack of active temporary operands maintained by Phase OA was not 
empty when a fresh statement was due to be processed. 



ERROR NUMBER 541 DURING PHASE OE 

Explanation ; A GOOB text table has been found in which the third operand is not one 

of the following: 

a label constant 
a label variable 
a qualified temporary 



ERROR NUMBER 543 DURING PHASE OE. 

Explanation ; The table containing information about temporary operands has been 
searched for a temporary which could not be found. 



ERROR NUMBER 544 DURING PHASE OE. 

Explanation : The table containing information about temporary operands is full; 
further entries can not be made. This fact should have been detected and acted upon 
by Phase OA. The occurrence, therefore, of the above error message also indicates 
that Phase OA did not fully handle the situation. 
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ERROR NUMBER 545 DURING PHASE OE. 

Explanation : The table containing information about qualified temporaries has been 
searched for a qualified temporary which could not be found. 



ERROR NUMBER 548 DURING PHASE OE. 

Explanation : The stack of active temporary operands maintained by Phase OE was not 
empty when a fjresh statement was due to be processed. 



ERROR NUMBER 6 02 DURING PHASE KK. 

Explanation : Text table stack is full - logic error in Phase KK. 

ERROR NUMBER 641 DURING PHASE OX. 

Explanation : A qualified temporary has been referenced which has not been set. 

Programmer Response : If possible, rewrite the statement indicated by the error 
message. 

ERROR NUMBER 642 DURING PHASE OX. 

Explanation : The qualified temporary stack is full. This happens when previous 
phases of the compiler have not flagged qualified temporaries correctly on their last 

use. 

Programmer Response : Look for 30 previous statements in the program which are similar 
to the one involved. Remove statements until there are fewer than 30. 

ERROR NUMBER 6 43 DURING PHASE OX. 

Explanation : Input text error. A SELECT, WHEN, or OTHERWISE statement has been 
encountered with an incorrect value in slot ITSELCT. 

Programmer Re s po nse: If the program contains nested SELECT groups simplify the 
nesting. 

ERROR NUMBER 644 DURING PHASE OX. 

Explanatio n: SELECT stack is full - logic error in CX. 

ERROR NUMBER 645 DURING PHASE OX. 

Explanation : SELECT stack contains a tad entry - logic error in OX. 

ERROR NUMBER 661 DURING PHASE KX. 

Explanation : An invalid conversion, generated by one of the phases II thrcuqh OX, \*as 
been encountered. 

266 



Programmer Response ; Simplify the statement referred to by the error message. 



RESTRICTION NUMBER 681 DURING PHASE PC. 

Explanation : Phase PC has been asked to construct a symbol table for an invalid 
identifier. Variables only can occur in data-directed I/O; variables, label 
constants, or entry-point constants are allowed in CHECK-condition lists. Any invalid 

or "unusual" identifiers may not have been detected in earlier compiler phases. 

Programmer Response ; Check the use of data-directed I/O statements or the CHECK 
condition. Replace any that may cause trouble. 



ERROR NUMBER 683 DURING PHASE PC. 

Explanation : A pictured operand or PICTURE format item requiring a DED or FED cannot 
be associated with its correct PICTURE specification, as its dictionary reference has 
been lost. 

Programmer Response ; Check the use cf PICTURE format items and the passing of 
pictured variables to library subroutines. 



ERROR NUMBER 721 DURING PHASE PE. 

Explanation ; An invalid entry has been found during a scan of the variables 
dictionary. 



ERROR NUMBER 722 DURING PHASE PE. 

Explanation : An invalid entry has been found during a scan of the storage dictionary. 

ERROR NUMBER 723 DURING PHASE PE. 

Explanation ; The compiler has tailed to assign correct alignment to a STATIC variable 
which has teen initialized. 

Programmer Response ; Avoid the use cf the INITIAL attribute for STATIC variables. 

ERROR NUMBER 741 DURING PHASE PI. 

Explanation ; On input to PI, a qualified temporary has been referred to without being 
previously defined. 

Programmer Response : 1. Try to simplify the statement involved. 2. Avoid indirect 
references to variables; that is, BASED, subscripted, POSITION (expression) and SUBSTR, 

ERROR NUMBER 742 DURING PHASE PI. 

Explanation : Input to PI indicates need for data element descriptor for a data type 
which does not require one. 

Programmer Respo nse; If a conversion is involved, attempt to avoid conversion. 
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ERROR NUMBER 744 DURING PHASE PI. 

Explanation : The input to PI tries to take address of an operand that does not have 
an address. 

Programmer Response : Simplify the statement involved. 



ERROR NUMBER 745 DURING PHASE PI. 

Explanation : No storage base has been provided for a variable in the input to PI. 

RESTRICTION NUMBER 7 46 DURING PHASE PI. 

Explanation : Too many temporaries alive at the same time. 

Programmer Response : Try to simplify the statement involved. 

ERROR NUMBER 762 DURING PHASE QI . 

Explanation : A text table that should have been deleted by an earlier phase has been 
found in the input text stream. 

ERROR NUMBER 763 DURING PHASE QI. 

Explanation : Invalid input - addressing vector contains incorrect information. 

ERROR NUMBER 781 DURING PHASE QA. 

Explanation : Invalid input has been passed to the phase. 
Programmer Response : Modify the statement involved. 

RESTRICTION NUMBER 7 82 DURING PHASE QA. 

Explanation : Wore registers are required than are available. 

Programmer Response : Simplify the statement referred to. For exairple, perform 
subscript calculation before the statement. 

RESTRICTION NUMBER 78 3 DURING PHASE QA. 

Explanation : Qualified temporary table full, or missing qualified temporary. 

Programmer Response : Simplify the statement involved. 

ERROR NUMBER 7 84 DURING PHASE QA. 

Explanation : All of the storage for register temporaries has been used, probably 
because preceding phases failed to discard register temporaries. 
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Programmer Response ; simplify the statement. If the statement is a multiple 
assignment, ensure that there are not more than 32 targets. 



ERROR NUMBER 7 85 DURING PHASE QA. 

Explanation : A base cannot be found. Either the base was never set up, or it was not 
set up again after use, or Phase QA has discarded the base too soon. 



ERROR NUMBER 801 DURING PHASE QE. 

Explanation ; An unrecognizable text table has been found in the input text stream. 

ERROR NUMBER 901 DURING PHASE SK. 

Explanation ; Raised by missing, invalid, or duplicate label. 

ERROR NUMBER 9 02 DURING PHASE SK. 

Explanation ; General register has been used as a base register. 

RESTRICTION NUMBER 90 3 DURING PHASE SK. 

Explanation ; An error has been made in the allocation of region numbers. 

Programmer Response ; Attempt to break up large EDIT or FORMAT statements. 

ERROR NUMBER 9 04 DURING PHASE SK. 

Explanation : Untranslated text table - a text table has not been converted to object 
sode by any of the code generation phases. 

RESTRICTION NUMBER 905 DURING PHASE SK. 

Explanation ; Toe irany labels (both user-supplied and compiler-generated) in the 
program, resulting in overflew cf the label table. 

Programmer Response ; Attempt to simplify the prograir by reducing the number of lafcels 
used. 

ERROR NUMBER 9 06 DURING PHASE SK. 

Explanation ; An invalid operation code has been produced by one of the code 
generation phases. 

RESTRICTION NUMBER 9 07 DURING PHASE SK. 

Explanation ; Too many blocks (BEGIN, PROC, and ON) in the program. 

Programmer Response : Rerun with larger SIZE parameter. 
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ERROR NUMBER 921 DURING PHASE SI. 

Explanation ; Instructions selected from a code skeleton include a lccal branch 
without a corresponding local label. 

Programmer Response : Rewrite the statement referred to in the error message. 



ERROR NUMBER 922 DURING PHASE SI. 

Explanation ; The number of ADCONS requested by phase SK exceeds the number allocated 
by storage allocation. (The value in XSAADCS exceeds the value in XADCS.) 



ERROR NUMBER 941 DURING PHASE SM. 

Ex planation ; An invalid entry has been found in the pseudo constants pool. 

ERROR NUMBER 942 DURING PHASE SM. 

Ex planation ; An inline constant has been found with an invalid type flag. 

Programmer Resp onse; Rewrite the statement referred to in the errcr iressage. 

ERROR NUMBER 943 DURING PHASE SM. 

Explanation ; A irarker in the text has an invalid type byte. 

Programmer Response ; Rewrite the statement referred to in the error iressage. 

ERROR NUMBER 944 DURING PHASE SM. 

Explanatio n; An invalid dictionary reference has teen found in the input text stream 

Programmer Response ; Rewrite the statement referred to in the error message. 

ERROR NUMBER 9 45 DURING PHASE SM. 

Explanation ; An invalid dictionary reference has been found in one cf the input text 
streams. 

ERROR NUMBER 946 DURING PHASE SM. 

Explanation ; An invalid dictionary reference has been found, derived indirectly from 
text or dictionary. 
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OS PL/I Optimizing Compiler: Comment 

Messages Form 

SC33-0027-5 



This manual is part of a library that serves as a reference source for systems analysts, programmers, and operators of 
IBM systems. You may use this form to communicate your comments about this publication, its organization, or 
subject matter, with the understanding that IBM may use or distribute whatever information you supply^in any way 
it believes appropriate without incurring any obligation to you. 

Your comments will be sent to the author's department for whatever review and action, if any, are deemed 
appropriate. 

Note: Copies of IBM publications are not stocked at the location to which this form is addressed. Please direct any 
requests for copies of publications, or for assistance in using your IBM system, to your IBM representative or to 
the IBM branch office serving your locality. 
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Previous TNL 



Fold on two lines, tape, and mail. No postage stamp necessary if mailed in the U.S.A. 
(Elsewhere, an IBM office or representative will be happy to forward your comments or you 
may mail directly to the address in the Edition Notice on the back of the title page.) Thank 
you for your cooperation. 
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